From 9147029ea98f2602436af9e175bde3f5edd04335 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 4 Sep 2019 16:37:05 +0200 Subject: [PATCH] MoveRename --- ToolCollection/ClassNIDatenbankzugriff.vb | 45 +- ToolCollection/ClassNIVerknüpfung.vb | 17 +- ToolCollection/ClassNIWindream.vb | 70 +- ToolCollection/ModuleCURRENT.vb | 6 + ToolCollection/ModuleStopwatch.vb | 36 + ToolCollection/My Project/AssemblyInfo.vb | 2 +- .../My Project/Resources.Designer.vb | 10 + ToolCollection/My Project/Resources.resx | 61 +- .../My Project/Settings.Designer.vb | 22 +- ToolCollection/My Project/Settings.settings | 10 +- ToolCollection/MyDataset.Designer.vb | 2246 ++++++++++++----- ToolCollection/MyDataset.xsc | 17 +- ToolCollection/MyDataset.xsd | 131 + ToolCollection/MyDataset.xss | 9 +- ToolCollection/Resources/action_add_16xMD.png | Bin 0 -> 173 bytes ToolCollection/ToolCollection.vbproj | 24 + ToolCollection/app.config | 8 +- ToolCollection/frmDIHauptseite.vb | 352 ++- .../frmDIProfilEigenschaften.Designer.vb | 14 +- .../frmDIProfilHinzufuegen.Designer.vb | 65 +- ToolCollection/frmDIProfilHinzufuegen.vb | 20 +- ToolCollection/frmNIHauptseite.Designer.vb | 129 +- ToolCollection/frmNIHauptseite.resx | 15 +- ToolCollection/frmNIHauptseite.vb | 438 +++- ToolCollection/frmNIMoveRename.Designer.vb | 362 +++ ToolCollection/frmNIMoveRename.resx | 920 +++++++ ToolCollection/frmNIMoveRename.vb | 70 + ...frmNIMoveRenameNamenkonvention.designer.vb | 195 ++ .../frmNIMoveRenameNamenkonvention.en-US.resx | 252 ++ .../frmNIMoveRenameNamenkonvention.resx | 647 +++++ .../frmNIMoveRenameNamenkonvention.vb | 103 + .../frmNIProfileigenschaften.Designer.vb | 419 ++- ToolCollection/frmNIProfileigenschaften.resx | 2 +- ToolCollection/frmNIProfileigenschaften.vb | 148 +- ToolCollection/frmNIProfilhinzufuegen.vb | 38 +- .../frmNIVerknuepfungen.Designer.vb | 28 + ToolCollection/frmNIVerknuepfungen.vb | 141 +- 37 files changed, 5790 insertions(+), 1282 deletions(-) create mode 100644 ToolCollection/ModuleStopwatch.vb create mode 100644 ToolCollection/Resources/action_add_16xMD.png create mode 100644 ToolCollection/frmNIMoveRename.Designer.vb create mode 100644 ToolCollection/frmNIMoveRename.resx create mode 100644 ToolCollection/frmNIMoveRename.vb create mode 100644 ToolCollection/frmNIMoveRenameNamenkonvention.designer.vb create mode 100644 ToolCollection/frmNIMoveRenameNamenkonvention.en-US.resx create mode 100644 ToolCollection/frmNIMoveRenameNamenkonvention.resx create mode 100644 ToolCollection/frmNIMoveRenameNamenkonvention.vb diff --git a/ToolCollection/ClassNIDatenbankzugriff.vb b/ToolCollection/ClassNIDatenbankzugriff.vb index 26a01ae..1c594e7 100644 --- a/ToolCollection/ClassNIDatenbankzugriff.vb +++ b/ToolCollection/ClassNIDatenbankzugriff.vb @@ -604,7 +604,8 @@ Public Class ClassNIDatenbankzugriff ' einen einzigen relevanten Wert zurückgeben Dim sqlresult = dt.Rows(0).Item(0) 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 SQLconnect.Close() Return "NULL Row" @@ -875,6 +876,48 @@ Public Class ClassNIDatenbankzugriff Return 0 End Try 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) ' wenn eine Datenbank-Connection aufgebaut ist If Connection IsNot Nothing Then diff --git a/ToolCollection/ClassNIVerknüpfung.vb b/ToolCollection/ClassNIVerknüpfung.vb index eb7379e..17e89aa 100644 --- a/ToolCollection/ClassNIVerknüpfung.vb +++ b/ToolCollection/ClassNIVerknüpfung.vb @@ -45,7 +45,7 @@ End Function Public Function Save_DB_Link(ByVal profilname As String) ' 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 Dim xml As New Xml.XmlDocument() Dim xmlProfil As Xml.XmlElement @@ -71,13 +71,14 @@ Return True End If Else - If Me.SelectAnweisung.Contains("=") = False Or Me.SelectAnweisung.Contains("where") = False Then - 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") - Else - MsgBox("Eine Verknüpfung konnte nicht gespeichert werden. " & vbNewLine & "Es sind evtl. ungültige Zeichen enthalten!" & vbNewLine & _ - "Bitte überprüfen Sie die Verknüpfung " & Me.Index & " <-> " & Me.Spalte & " (in " & Me.From & ").", MsgBoxStyle.Information, "Verknüpfung konnte nicht gespeichert werden") - Return False - End If + Return True + 'If Me.SelectAnweisung.Contains("=") = False Or Me.SelectAnweisung.Contains("where") = False Then + ' 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") + 'Else + ' MsgBox("Eine Verknüpfung konnte nicht gespeichert werden. " & vbNewLine & "Es sind evtl. ungültige Zeichen enthalten!" & vbNewLine & _ + ' "Bitte überprüfen Sie die Verknüpfung " & Me.Index & " <-> " & Me.Spalte & " (in " & Me.From & ").", MsgBoxStyle.Information, "Verknüpfung konnte nicht gespeichert werden") + ' Return False + 'End If End If End Function diff --git a/ToolCollection/ClassNIWindream.vb b/ToolCollection/ClassNIWindream.vb index 5c8bc83..f38f9b7 100644 --- a/ToolCollection/ClassNIWindream.vb +++ b/ToolCollection/ClassNIWindream.vb @@ -535,45 +535,48 @@ Public Class ClassNIWindream ReDim Preserve VektorArray(0) VektorArray(0) = myArray(0) Case 2 'Anfügen - _Logger.Debug("vektInsState = '2'") + _Logger.Debug("vektInsState = '2'-538") VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType) Case 3 'Anfügen mit DuplikatCheck _Logger.Debug("vektInsState = '3'") VektorArray = Return_VektorArray(oDocument, aName, myArray, True, vType) End Select + _Logger.Debug($"Vektortype is {vType} ...") If VektorArray Is Nothing = False Then ReDim myArray(VektorArray.Length - 1) Array.Copy(VektorArray, myArray, VektorArray.Length) 'Jetzt die Nachindexierung für Vektor-Felder - If BS.Count = 1 Then - If vType = 4097 Then - Dim strArray() - ReDim Preserve strArray(0) - strArray(0) = myArray(0) - temp_arr.Add(CStr(myArray(0))) - - oDocument.SetVariableValue(aName, strArray) - ElseIf vType = 4098 Then - temp_arr.Add(CInt(myArray(0))) - 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") - convertValue = Nothing - convertValue = temp_arr.ToArray - Else - convertValue = vbEmpty - End If - ' den konvertierten Indexwert dem entsprechenden Index zuweisen - oDocument.SetVariableValue(aName, convertValue) - Else - oDocument.SetVariableValue(aName, myArray(0)) - End If - - Else + 'If BS.Count = 1 Then + ' If vType = 4097 Then + ' Dim strArray() + ' ReDim Preserve strArray(0) + ' strArray(0) = myArray(0) + ' temp_arr.Add(CStr(myArray(0))) + + ' oDocument.SetVariableValue(aName, strArray) + ' ElseIf vType = 4098 Then + ' temp_arr.Add(CInt(myArray(0))) + ' If temp_arr.Count > 0 Then + ' _Logger.Debug("'Einträge in temp_arr also Speichern des Arrays in convertValue") + ' convertValue = Nothing + ' convertValue = temp_arr.ToArray + ' Else + ' convertValue = vbEmpty + ' End If + ' ' den konvertierten Indexwert dem entsprechenden Index zuweisen + ' oDocument.SetVariableValue(aName, convertValue) + ' Else + ' _Logger.Debug($"Vektortype is {vType} therefore only storing first value [{myArray(0)}]!") + ' oDocument.SetVariableValue(aName, myArray(0)) + ' End If + + 'Else + _Logger.Debug($"Vektortype is {vType}: Indexing with [{VektorArray.Length} values]!") 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 oDocument.Save() @@ -633,7 +636,7 @@ Public Class ClassNIWindream End If Next Case 2 'Anfügen - _Logger.Debug("vektInsState = '2'") + _Logger.Debug("vektInsState = '2'-638") VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType) Case 3 'Anfügen mit DuplikatCheck _Logger.Debug("vektInsState = '3'") @@ -997,14 +1000,17 @@ Public Class ClassNIWindream _Logger.Info($"targetpath ({targetpath})") _Logger.Info($"sourcepath ({sourcepath})") End If - 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 sw As New ClassStopwatch("NEW_MOVE_FILE") + Dim oTargetpath = System.IO.Path.GetDirectoryName(targetpath) oTargetpath = oTargetpath.Replace("\\windream\objects", "") oTargetpath = oTargetpath.Replace("W:\", "\") + + + targetpath = targetpath.Replace("\\windream\objects", "") + targetpath = targetpath.Replace("W:\", "\") + sourcepath = sourcepath.Replace("\\windream\objects", "") sourcepath = sourcepath.Replace("W:\", "\") Const WMEntityDocument = 1 diff --git a/ToolCollection/ModuleCURRENT.vb b/ToolCollection/ModuleCURRENT.vb index db52337..db7d426 100644 --- a/ToolCollection/ModuleCURRENT.vb +++ b/ToolCollection/ModuleCURRENT.vb @@ -18,6 +18,12 @@ Module ModuleCURRENT Public CURRENToWMSession_Created As Date = Now 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_Logger As DigitalData.Modules.Logging.Logger End Module diff --git a/ToolCollection/ModuleStopwatch.vb b/ToolCollection/ModuleStopwatch.vb new file mode 100644 index 0000000..fca6817 --- /dev/null +++ b/ToolCollection/ModuleStopwatch.vb @@ -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 diff --git a/ToolCollection/My Project/AssemblyInfo.vb b/ToolCollection/My Project/AssemblyInfo.vb index 7de1440..4e76bb5 100644 --- a/ToolCollection/My Project/AssemblyInfo.vb +++ b/ToolCollection/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/ToolCollection/My Project/Resources.Designer.vb b/ToolCollection/My Project/Resources.Designer.vb index dabcaa1..82a70e1 100644 --- a/ToolCollection/My Project/Resources.Designer.vb +++ b/ToolCollection/My Project/Resources.Designer.vb @@ -90,6 +90,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/ToolCollection/My Project/Resources.resx b/ToolCollection/My Project/Resources.resx index aa2fe04..4d5e8c1 100644 --- a/ToolCollection/My Project/Resources.resx +++ b/ToolCollection/My Project/Resources.resx @@ -118,9 +118,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\cross1.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\user_edit3.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -142,6 +139,9 @@ ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Untitled (640).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Aktualisieren.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -166,12 +166,12 @@ ..\Resources\Untitled (1055).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\arrow_up.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -190,9 +190,6 @@ ..\Resources\Untitled (882).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\stiftlineal_transparent3.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\puzzle4.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -232,15 +229,24 @@ ..\Resources\Untitled (209).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Untitled (219).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\resultset_next.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Untitled (142).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\asterisk_orange.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\link_break.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\table_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Untitled (1015).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -289,8 +295,8 @@ ..\Resources\mail_write.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\puzzle3.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Untitled (218).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -319,9 +325,6 @@ ..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\page_edit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\clock_run.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -364,8 +367,8 @@ ..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Untitled (640).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\cross1.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\f5.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -376,6 +379,9 @@ ..\Resources\asterisk_orange1.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\bullet_arrow_down1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\bomb.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -385,8 +391,8 @@ ..\Resources\info_small.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\puzzle3.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\stiftlineal_transparent3.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\book_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -394,8 +400,8 @@ ..\Resources\cross.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Untitled (219).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\control_rewind.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -409,19 +415,16 @@ ..\Resources\rosette.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Untitled (142).ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\table_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\page_edit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\user_edit.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\arrow_up.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\bullet_arrow_down1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/ToolCollection/My Project/Settings.Designer.vb b/ToolCollection/My Project/Settings.Designer.vb index ac66aa6..cf19441 100644 --- a/ToolCollection/My Project/Settings.Designer.vb +++ b/ToolCollection/My Project/Settings.Designer.vb @@ -789,8 +789,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _ + "True;User ID=sa;Password=dd")> _ Public ReadOnly Property DD_ECMConnString() As String Get Return CType(Me("DD_ECMConnString"),String) @@ -906,6 +906,24 @@ Namespace My Return CType(Me("FB_PW"),String) End Get End Property + + _ + Public ReadOnly Property StopwatchTimerActive() As Boolean + Get + Return CType(Me("StopwatchTimerActive"),Boolean) + End Get + End Property + + _ + Public ReadOnly Property DIOpt_CheckLength() As Boolean + Get + Return CType(Me("DIOpt_CheckLength"),Boolean) + End Get + End Property End Class End Namespace diff --git a/ToolCollection/My Project/Settings.settings b/ToolCollection/My Project/Settings.settings index a04299e..bf7b577 100644 --- a/ToolCollection/My Project/Settings.settings +++ b/ToolCollection/My Project/Settings.settings @@ -193,10 +193,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ConnectionString>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd + Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd False @@ -231,5 +231,11 @@ + + True + + + False + \ No newline at end of file diff --git a/ToolCollection/MyDataset.Designer.vb b/ToolCollection/MyDataset.Designer.vb index 1039f5e..a84eccf 100644 --- a/ToolCollection/MyDataset.Designer.vb +++ b/ToolCollection/MyDataset.Designer.vb @@ -27,6 +27,8 @@ Partial Public Class MyDataset Private tableTBDD_REPORTING_IMPORT As TBDD_REPORTING_IMPORTDataTable + Private tableTBTC_MOVE_RENAME As TBTC_MOVE_RENAMEDataTable + Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable Private tableTBErgebnis As TBErgebnisDataTable @@ -65,6 +67,9 @@ Partial Public Class MyDataset If (Not (ds.Tables("TBDD_REPORTING_IMPORT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_REPORTING_IMPORTDataTable(ds.Tables("TBDD_REPORTING_IMPORT"))) End If + If (Not (ds.Tables("TBTC_MOVE_RENAME")) Is Nothing) Then + MyBase.Tables.Add(New TBTC_MOVE_RENAMEDataTable(ds.Tables("TBTC_MOVE_RENAME"))) + End If If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY"))) End If @@ -101,6 +106,16 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property TBTC_MOVE_RENAME() As TBTC_MOVE_RENAMEDataTable + Get + Return Me.tableTBTC_MOVE_RENAME + End Get + End Property + _ + Private Function ShouldSerializeTBTC_MOVE_RENAME() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBVEKTOR_ARRAY() As Boolean @@ -371,6 +403,9 @@ Partial Public Class MyDataset _ Public Delegate Sub TBDD_REPORTING_IMPORTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_REPORTING_IMPORTRowChangeEvent) + _ + Public Delegate Sub TBTC_MOVE_RENAMERowChangeEventHandler(ByVal sender As Object, ByVal e As TBTC_MOVE_RENAMERowChangeEvent) + _ Public Delegate Sub TBVEKTOR_ARRAYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_ARRAYRowChangeEvent) @@ -733,18 +768,32 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBVEKTOR_ARRAYDataTable - Inherits Global.System.Data.TypedTableBase(Of TBVEKTOR_ARRAYRow) + Partial Public Class TBTC_MOVE_RENAMEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTC_MOVE_RENAMERow) - Private columnIndexname As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnWert As Global.System.Data.DataColumn + Private columnPROFILE_NAME As Global.System.Data.DataColumn + + Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn + + Private columnNAMECONVENTION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnCREATED_WHO As Global.System.Data.DataColumn + + Private columnCREATED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBVEKTOR_ARRAY" + Me.TableName = "TBTC_MOVE_RENAME" Me.BeginInit Me.InitClass Me.EndInit @@ -777,17 +826,73 @@ Partial Public Class MyDataset _ - Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnIndexname + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property WertColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROFILE_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnWert + Return Me.columnPROFILE_NAME + End Get + End Property + + _ + Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLDER_FOR_INDEX + End Get + End Property + + _ + Public ReadOnly Property NAMECONVENTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAMECONVENTION + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property CREATED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCREATED_WHO + End Get + End Property + + _ + Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCREATED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN End Get End Property @@ -802,44 +907,50 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBVEKTOR_ARRAYRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTC_MOVE_RENAMERow Get - Return CType(Me.Rows(index),TBVEKTOR_ARRAYRow) + Return CType(Me.Rows(index),TBTC_MOVE_RENAMERow) End Get End Property _ - Public Event TBVEKTOR_ARRAYRowChanging As TBVEKTOR_ARRAYRowChangeEventHandler + Public Event TBTC_MOVE_RENAMERowChanging As TBTC_MOVE_RENAMERowChangeEventHandler _ - Public Event TBVEKTOR_ARRAYRowChanged As TBVEKTOR_ARRAYRowChangeEventHandler + Public Event TBTC_MOVE_RENAMERowChanged As TBTC_MOVE_RENAMERowChangeEventHandler _ - Public Event TBVEKTOR_ARRAYRowDeleting As TBVEKTOR_ARRAYRowChangeEventHandler + Public Event TBTC_MOVE_RENAMERowDeleting As TBTC_MOVE_RENAMERowChangeEventHandler _ - Public Event TBVEKTOR_ARRAYRowDeleted As TBVEKTOR_ARRAYRowChangeEventHandler + Public Event TBTC_MOVE_RENAMERowDeleted As TBTC_MOVE_RENAMERowChangeEventHandler _ - Public Overloads Sub AddTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow) + Public Overloads Sub AddTBTC_MOVE_RENAMERow(ByVal row As TBTC_MOVE_RENAMERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBVEKTOR_ARRAYRow(ByVal Indexname As String, ByVal Wert As String) As TBVEKTOR_ARRAYRow - Dim rowTBVEKTOR_ARRAYRow As TBVEKTOR_ARRAYRow = CType(Me.NewRow,TBVEKTOR_ARRAYRow) - Dim columnValuesArray() As Object = New Object() {Indexname, Wert} - rowTBVEKTOR_ARRAYRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBVEKTOR_ARRAYRow) - Return rowTBVEKTOR_ARRAYRow + Public Overloads Function AddTBTC_MOVE_RENAMERow(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CREATED_WHO As String, ByVal CREATED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBTC_MOVE_RENAMERow + Dim rowTBTC_MOVE_RENAMERow As TBTC_MOVE_RENAMERow = CType(Me.NewRow,TBTC_MOVE_RENAMERow) + Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBTC_MOVE_RENAMERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTC_MOVE_RENAMERow) + Return rowTBTC_MOVE_RENAMERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBTC_MOVE_RENAMERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBTC_MOVE_RENAMERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBVEKTOR_ARRAYDataTable = CType(MyBase.Clone,TBVEKTOR_ARRAYDataTable) + Dim cln As TBTC_MOVE_RENAMEDataTable = CType(MyBase.Clone,TBTC_MOVE_RENAMEDataTable) cln.InitVars Return cln End Function @@ -847,49 +958,86 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBVEKTOR_ARRAYDataTable() + Return New TBTC_MOVE_RENAMEDataTable() End Function _ Friend Sub InitVars() - Me.columnIndexname = MyBase.Columns("Indexname") - Me.columnWert = MyBase.Columns("Wert") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_NAME = MyBase.Columns("PROFILE_NAME") + Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX") + Me.columnNAMECONVENTION = MyBase.Columns("NAMECONVENTION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnCREATED_WHO = MyBase.Columns("CREATED_WHO") + Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() - Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnIndexname) - Me.columnWert = New Global.System.Data.DataColumn("Wert", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWert) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_NAME = New Global.System.Data.DataColumn("PROFILE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_NAME) + Me.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX) + Me.columnNAMECONVENTION = New Global.System.Data.DataColumn("NAMECONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAMECONVENTION) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnCREATED_WHO = New Global.System.Data.DataColumn("CREATED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCREATED_WHO) + Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCREATED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPROFILE_NAME.AllowDBNull = false + Me.columnPROFILE_NAME.MaxLength = 100 + Me.columnFOLDER_FOR_INDEX.AllowDBNull = false + Me.columnFOLDER_FOR_INDEX.MaxLength = 500 + Me.columnNAMECONVENTION.AllowDBNull = false + Me.columnNAMECONVENTION.MaxLength = 500 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnCREATED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBVEKTOR_ARRAYRow() As TBVEKTOR_ARRAYRow - Return CType(Me.NewRow,TBVEKTOR_ARRAYRow) + Public Function NewTBTC_MOVE_RENAMERow() As TBTC_MOVE_RENAMERow + Return CType(Me.NewRow,TBTC_MOVE_RENAMERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBVEKTOR_ARRAYRow(builder) + Return New TBTC_MOVE_RENAMERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBVEKTOR_ARRAYRow) + Return GetType(TBTC_MOVE_RENAMERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBVEKTOR_ARRAYRowChangedEvent) Is Nothing) Then - RaiseEvent TBVEKTOR_ARRAYRowChanged(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) + If (Not (Me.TBTC_MOVE_RENAMERowChangedEvent) Is Nothing) Then + RaiseEvent TBTC_MOVE_RENAMERowChanged(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) End If End Sub @@ -897,8 +1045,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBVEKTOR_ARRAYRowChangingEvent) Is Nothing) Then - RaiseEvent TBVEKTOR_ARRAYRowChanging(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) + If (Not (Me.TBTC_MOVE_RENAMERowChangingEvent) Is Nothing) Then + RaiseEvent TBTC_MOVE_RENAMERowChanging(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) End If End Sub @@ -906,8 +1054,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBVEKTOR_ARRAYRowDeletedEvent) Is Nothing) Then - RaiseEvent TBVEKTOR_ARRAYRowDeleted(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) + If (Not (Me.TBTC_MOVE_RENAMERowDeletedEvent) Is Nothing) Then + RaiseEvent TBTC_MOVE_RENAMERowDeleted(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) End If End Sub @@ -915,14 +1063,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBVEKTOR_ARRAYRowDeletingEvent) Is Nothing) Then - RaiseEvent TBVEKTOR_ARRAYRowDeleting(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) + If (Not (Me.TBTC_MOVE_RENAMERowDeletingEvent) Is Nothing) Then + RaiseEvent TBTC_MOVE_RENAMERowDeleting(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action)) End If End Sub _ - Public Sub RemoveTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow) + Public Sub RemoveTBTC_MOVE_RENAMERow(ByVal row As TBTC_MOVE_RENAMERow) Me.Rows.Remove(row) End Sub @@ -949,7 +1097,7 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBVEKTOR_ARRAYDataTable" + attribute2.FixedValue = "TBTC_MOVE_RENAMEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -998,16 +1146,18 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBErgebnisDataTable - Inherits Global.System.Data.TypedTableBase(Of TBErgebnisRow) + Partial Public Class TBVEKTOR_ARRAYDataTable + Inherits Global.System.Data.TypedTableBase(Of TBVEKTOR_ARRAYRow) - Private columnErgebniswerte As Global.System.Data.DataColumn + Private columnIndexname As Global.System.Data.DataColumn + + Private columnWert As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBErgebnis" + Me.TableName = "TBVEKTOR_ARRAY" Me.BeginInit Me.InitClass Me.EndInit @@ -1040,9 +1190,17 @@ Partial Public Class MyDataset _ - Public ReadOnly Property ErgebniswerteColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn Get - Return Me.columnErgebniswerte + Return Me.columnIndexname + End Get + End Property + + _ + Public ReadOnly Property WertColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWert End Get End Property @@ -1057,44 +1215,44 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBErgebnisRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBVEKTOR_ARRAYRow Get - Return CType(Me.Rows(index),TBErgebnisRow) + Return CType(Me.Rows(index),TBVEKTOR_ARRAYRow) End Get End Property _ - Public Event TBErgebnisRowChanging As TBErgebnisRowChangeEventHandler + Public Event TBVEKTOR_ARRAYRowChanging As TBVEKTOR_ARRAYRowChangeEventHandler _ - Public Event TBErgebnisRowChanged As TBErgebnisRowChangeEventHandler + Public Event TBVEKTOR_ARRAYRowChanged As TBVEKTOR_ARRAYRowChangeEventHandler _ - Public Event TBErgebnisRowDeleting As TBErgebnisRowChangeEventHandler + Public Event TBVEKTOR_ARRAYRowDeleting As TBVEKTOR_ARRAYRowChangeEventHandler _ - Public Event TBErgebnisRowDeleted As TBErgebnisRowChangeEventHandler + Public Event TBVEKTOR_ARRAYRowDeleted As TBVEKTOR_ARRAYRowChangeEventHandler _ - Public Overloads Sub AddTBErgebnisRow(ByVal row As TBErgebnisRow) + Public Overloads Sub AddTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBErgebnisRow(ByVal Ergebniswerte As String) As TBErgebnisRow - Dim rowTBErgebnisRow As TBErgebnisRow = CType(Me.NewRow,TBErgebnisRow) - Dim columnValuesArray() As Object = New Object() {Ergebniswerte} - rowTBErgebnisRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBErgebnisRow) - Return rowTBErgebnisRow + Public Overloads Function AddTBVEKTOR_ARRAYRow(ByVal Indexname As String, ByVal Wert As String) As TBVEKTOR_ARRAYRow + Dim rowTBVEKTOR_ARRAYRow As TBVEKTOR_ARRAYRow = CType(Me.NewRow,TBVEKTOR_ARRAYRow) + Dim columnValuesArray() As Object = New Object() {Indexname, Wert} + rowTBVEKTOR_ARRAYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBVEKTOR_ARRAYRow) + Return rowTBVEKTOR_ARRAYRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBErgebnisDataTable = CType(MyBase.Clone,TBErgebnisDataTable) + Dim cln As TBVEKTOR_ARRAYDataTable = CType(MyBase.Clone,TBVEKTOR_ARRAYDataTable) cln.InitVars Return cln End Function @@ -1102,46 +1260,49 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBErgebnisDataTable() + Return New TBVEKTOR_ARRAYDataTable() End Function _ Friend Sub InitVars() - Me.columnErgebniswerte = MyBase.Columns("Ergebniswerte") + Me.columnIndexname = MyBase.Columns("Indexname") + Me.columnWert = MyBase.Columns("Wert") End Sub _ Private Sub InitClass() - Me.columnErgebniswerte = New Global.System.Data.DataColumn("Ergebniswerte", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnErgebniswerte) + Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexname) + Me.columnWert = New Global.System.Data.DataColumn("Wert", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWert) End Sub _ - Public Function NewTBErgebnisRow() As TBErgebnisRow - Return CType(Me.NewRow,TBErgebnisRow) + Public Function NewTBVEKTOR_ARRAYRow() As TBVEKTOR_ARRAYRow + Return CType(Me.NewRow,TBVEKTOR_ARRAYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBErgebnisRow(builder) + Return New TBVEKTOR_ARRAYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBErgebnisRow) + Return GetType(TBVEKTOR_ARRAYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBErgebnisRowChangedEvent) Is Nothing) Then - RaiseEvent TBErgebnisRowChanged(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) + If (Not (Me.TBVEKTOR_ARRAYRowChangedEvent) Is Nothing) Then + RaiseEvent TBVEKTOR_ARRAYRowChanged(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) End If End Sub @@ -1149,8 +1310,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBErgebnisRowChangingEvent) Is Nothing) Then - RaiseEvent TBErgebnisRowChanging(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) + If (Not (Me.TBVEKTOR_ARRAYRowChangingEvent) Is Nothing) Then + RaiseEvent TBVEKTOR_ARRAYRowChanging(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) End If End Sub @@ -1158,8 +1319,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBErgebnisRowDeletedEvent) Is Nothing) Then - RaiseEvent TBErgebnisRowDeleted(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) + If (Not (Me.TBVEKTOR_ARRAYRowDeletedEvent) Is Nothing) Then + RaiseEvent TBVEKTOR_ARRAYRowDeleted(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) End If End Sub @@ -1167,14 +1328,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBErgebnisRowDeletingEvent) Is Nothing) Then - RaiseEvent TBErgebnisRowDeleting(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) + If (Not (Me.TBVEKTOR_ARRAYRowDeletingEvent) Is Nothing) Then + RaiseEvent TBVEKTOR_ARRAYRowDeleting(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action)) End If End Sub _ - Public Sub RemoveTBErgebnisRow(ByVal row As TBErgebnisRow) + Public Sub RemoveTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow) Me.Rows.Remove(row) End Sub @@ -1201,7 +1362,7 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBErgebnisDataTable" + attribute2.FixedValue = "TBVEKTOR_ARRAYDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1250,18 +1411,16 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBUVDataTable - Inherits Global.System.Data.TypedTableBase(Of TBUVRow) - - Private columnID As Global.System.Data.DataColumn + Partial Public Class TBErgebnisDataTable + Inherits Global.System.Data.TypedTableBase(Of TBErgebnisRow) - Private columnUnterverzeichnis As Global.System.Data.DataColumn + Private columnErgebniswerte As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBUV" + Me.TableName = "TBErgebnis" Me.BeginInit Me.InitClass Me.EndInit @@ -1294,17 +1453,9 @@ Partial Public Class MyDataset _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnID - End Get - End Property - - _ - Public ReadOnly Property UnterverzeichnisColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ErgebniswerteColumn() As Global.System.Data.DataColumn Get - Return Me.columnUnterverzeichnis + Return Me.columnErgebniswerte End Get End Property @@ -1319,44 +1470,44 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBUVRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBErgebnisRow Get - Return CType(Me.Rows(index),TBUVRow) + Return CType(Me.Rows(index),TBErgebnisRow) End Get End Property _ - Public Event TBUVRowChanging As TBUVRowChangeEventHandler + Public Event TBErgebnisRowChanging As TBErgebnisRowChangeEventHandler _ - Public Event TBUVRowChanged As TBUVRowChangeEventHandler + Public Event TBErgebnisRowChanged As TBErgebnisRowChangeEventHandler _ - Public Event TBUVRowDeleting As TBUVRowChangeEventHandler + Public Event TBErgebnisRowDeleting As TBErgebnisRowChangeEventHandler _ - Public Event TBUVRowDeleted As TBUVRowChangeEventHandler + Public Event TBErgebnisRowDeleted As TBErgebnisRowChangeEventHandler _ - Public Overloads Sub AddTBUVRow(ByVal row As TBUVRow) + Public Overloads Sub AddTBErgebnisRow(ByVal row As TBErgebnisRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBUVRow(ByVal Unterverzeichnis As String) As TBUVRow - Dim rowTBUVRow As TBUVRow = CType(Me.NewRow,TBUVRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Unterverzeichnis} - rowTBUVRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBUVRow) - Return rowTBUVRow + Public Overloads Function AddTBErgebnisRow(ByVal Ergebniswerte As String) As TBErgebnisRow + Dim rowTBErgebnisRow As TBErgebnisRow = CType(Me.NewRow,TBErgebnisRow) + Dim columnValuesArray() As Object = New Object() {Ergebniswerte} + rowTBErgebnisRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBErgebnisRow) + Return rowTBErgebnisRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBUVDataTable = CType(MyBase.Clone,TBUVDataTable) + Dim cln As TBErgebnisDataTable = CType(MyBase.Clone,TBErgebnisDataTable) cln.InitVars Return cln End Function @@ -1364,50 +1515,46 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBUVDataTable() + Return New TBErgebnisDataTable() End Function _ Friend Sub InitVars() - Me.columnID = MyBase.Columns("ID") - Me.columnUnterverzeichnis = MyBase.Columns("Unterverzeichnis") + Me.columnErgebniswerte = MyBase.Columns("Ergebniswerte") End Sub _ Private Sub InitClass() - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me.columnUnterverzeichnis = New Global.System.Data.DataColumn("Unterverzeichnis", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUnterverzeichnis) - Me.columnID.AutoIncrement = true + Me.columnErgebniswerte = New Global.System.Data.DataColumn("Ergebniswerte", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnErgebniswerte) End Sub _ - Public Function NewTBUVRow() As TBUVRow - Return CType(Me.NewRow,TBUVRow) + Public Function NewTBErgebnisRow() As TBErgebnisRow + Return CType(Me.NewRow,TBErgebnisRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBUVRow(builder) + Return New TBErgebnisRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBUVRow) + Return GetType(TBErgebnisRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBUVRowChangedEvent) Is Nothing) Then - RaiseEvent TBUVRowChanged(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) + If (Not (Me.TBErgebnisRowChangedEvent) Is Nothing) Then + RaiseEvent TBErgebnisRowChanged(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) End If End Sub @@ -1415,8 +1562,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBUVRowChangingEvent) Is Nothing) Then - RaiseEvent TBUVRowChanging(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) + If (Not (Me.TBErgebnisRowChangingEvent) Is Nothing) Then + RaiseEvent TBErgebnisRowChanging(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) End If End Sub @@ -1424,8 +1571,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBUVRowDeletedEvent) Is Nothing) Then - RaiseEvent TBUVRowDeleted(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) + If (Not (Me.TBErgebnisRowDeletedEvent) Is Nothing) Then + RaiseEvent TBErgebnisRowDeleted(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) End If End Sub @@ -1433,14 +1580,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBUVRowDeletingEvent) Is Nothing) Then - RaiseEvent TBUVRowDeleting(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) + If (Not (Me.TBErgebnisRowDeletingEvent) Is Nothing) Then + RaiseEvent TBErgebnisRowDeleting(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action)) End If End Sub _ - Public Sub RemoveTBUVRow(ByVal row As TBUVRow) + Public Sub RemoveTBErgebnisRow(ByVal row As TBErgebnisRow) Me.Rows.Remove(row) End Sub @@ -1467,7 +1614,7 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBUVDataTable" + attribute2.FixedValue = "TBErgebnisDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1512,491 +1659,1435 @@ Partial Public Class MyDataset End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBDD_REPORTING_IMPORTRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBUVDataTable + Inherits Global.System.Data.TypedTableBase(Of TBUVRow) - Private tableTBDD_REPORTING_IMPORT As TBDD_REPORTING_IMPORTDataTable + Private columnID As Global.System.Data.DataColumn + + Private columnUnterverzeichnis As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_REPORTING_IMPORT = CType(Me.Table,TBDD_REPORTING_IMPORTDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBUV" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property IMPORT_ID() As Integer - Get - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.IMPORT_IDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.IMPORT_IDColumn) = value - End Set - End Property + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub _ - Public Property FILE_NAME() As String - Get - Try - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_NAME in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) = value - End Set - End Property + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub _ - Public Property PROFILE_NAME() As String + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.PROFILE_NAMEColumn),String) + Return Me.columnID End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.PROFILE_NAMEColumn) = value - End Set End Property _ - Public Property VOLUME() As Decimal + Public ReadOnly Property UnterverzeichnisColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VOLUME in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) - End Try + Return Me.columnUnterverzeichnis End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) = value - End Set End Property _ - Public Property PAGE_COUNT() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Try - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) - End Try + Return Me.Rows.Count End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) = value - End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Default ReadOnly Property Item(ByVal index As Integer) As TBUVRow Get - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.ADDED_WHENColumn),Date) + Return CType(Me.Rows(index),TBUVRow) End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.ADDED_WHENColumn) = value - End Set End Property + _ + Public Event TBUVRowChanging As TBUVRowChangeEventHandler + + _ + Public Event TBUVRowChanged As TBUVRowChangeEventHandler + + _ + Public Event TBUVRowDeleting As TBUVRowChangeEventHandler + + _ + Public Event TBUVRowDeleted As TBUVRowChangeEventHandler + _ - Public Property EXTENSION() As String - Get - Try - Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EXTENSION in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) = value - End Set - End Property + Public Overloads Sub AddTBUVRow(ByVal row As TBUVRow) + Me.Rows.Add(row) + End Sub _ - Public Function IsFILE_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) + Public Overloads Function AddTBUVRow(ByVal Unterverzeichnis As String) As TBUVRow + Dim rowTBUVRow As TBUVRow = CType(Me.NewRow,TBUVRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Unterverzeichnis} + rowTBUVRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBUVRow) + Return rowTBUVRow End Function _ - Public Sub SetFILE_NAMENull() - Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBUVDataTable = CType(MyBase.Clone,TBUVDataTable) + cln.InitVars + Return cln + End Function _ - Public Function IsVOLUMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBUVDataTable() End Function _ - Public Sub SetVOLUMENull() - Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnUnterverzeichnis = MyBase.Columns("Unterverzeichnis") End Sub _ - Public Function IsPAGE_COUNTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnUnterverzeichnis = New Global.System.Data.DataColumn("Unterverzeichnis", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnterverzeichnis) + Me.columnID.AutoIncrement = true + End Sub + + _ + Public Function NewTBUVRow() As TBUVRow + Return CType(Me.NewRow,TBUVRow) End Function _ - Public Sub SetPAGE_COUNTNull() - Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBUVRow(builder) + End Function _ - Public Function IsEXTENSIONNull() As Boolean - Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBUVRow) End Function _ - Public Sub SetEXTENSIONNull() - Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBUVRowChangedEvent) Is Nothing) Then + RaiseEvent TBUVRowChanged(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) + End If End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBVEKTOR_ARRAYRow - Inherits Global.System.Data.DataRow - Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBUVRowChangingEvent) Is Nothing) Then + RaiseEvent TBUVRowChanging(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) + End If + End Sub _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBVEKTOR_ARRAY = CType(Me.Table,TBVEKTOR_ARRAYDataTable) + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBUVRowDeletedEvent) Is Nothing) Then + RaiseEvent TBUVRowDeleted(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) + End If End Sub _ - Public Property Indexname() As String - Get - Try - Return CType(Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBVEKTOR_ARRAY ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) = value - End Set - End Property - - _ - Public Property Wert() As String - Get - Try - Return CType(Me(Me.tableTBVEKTOR_ARRAY.WertColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wert in Tabelle TBVEKTOR_ARRAY ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBVEKTOR_ARRAY.WertColumn) = value - End Set - End Property - - _ - Public Function IsIndexnameNull() As Boolean - Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBUVRowDeletingEvent) Is Nothing) Then + RaiseEvent TBUVRowDeleting(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action)) + End If + End Sub _ - Public Sub SetIndexnameNull() - Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) = Global.System.Convert.DBNull + Public Sub RemoveTBUVRow(ByVal row As TBUVRow) + Me.Rows.Remove(row) End Sub _ - Public Function IsWertNull() As Boolean - Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.WertColumn) + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBUVDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type End Function - - _ - Public Sub SetWertNull() - Me(Me.tableTBVEKTOR_ARRAY.WertColumn) = Global.System.Convert.DBNull - End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBErgebnisRow + Partial Public Class TBDD_REPORTING_IMPORTRow Inherits Global.System.Data.DataRow - Private tableTBErgebnis As TBErgebnisDataTable + Private tableTBDD_REPORTING_IMPORT As TBDD_REPORTING_IMPORTDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBErgebnis = CType(Me.Table,TBErgebnisDataTable) + Me.tableTBDD_REPORTING_IMPORT = CType(Me.Table,TBDD_REPORTING_IMPORTDataTable) End Sub _ - Public Property Ergebniswerte() As String + Public Property IMPORT_ID() As Integer Get - Try - Return CType(Me(Me.tableTBErgebnis.ErgebniswerteColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ergebniswerte in Tabelle TBErgebnis ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.IMPORT_IDColumn),Integer) End Get Set - Me(Me.tableTBErgebnis.ErgebniswerteColumn) = value + Me(Me.tableTBDD_REPORTING_IMPORT.IMPORT_IDColumn) = value End Set End Property _ - Public Function IsErgebniswerteNull() As Boolean - Return Me.IsNull(Me.tableTBErgebnis.ErgebniswerteColumn) - End Function + Public Property FILE_NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_NAME in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) = value + End Set + End Property _ - Public Sub SetErgebniswerteNull() - Me(Me.tableTBErgebnis.ErgebniswerteColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBUVRow - Inherits Global.System.Data.DataRow - - Private tableTBUV As TBUVDataTable + Public Property PROFILE_NAME() As String + Get + Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.PROFILE_NAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_REPORTING_IMPORT.PROFILE_NAMEColumn) = value + End Set + End Property _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBUV = CType(Me.Table,TBUVDataTable) - End Sub + Public Property VOLUME() As Decimal + Get + Try + Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VOLUME in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) = value + End Set + End Property _ - Public Property ID() As Integer + Public Property PAGE_COUNT() As Integer Get Try - Return CType(Me(Me.tableTBUV.IDColumn),Integer) + Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBUV ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) End Try End Get Set - Me(Me.tableTBUV.IDColumn) = value + Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) = value End Set End Property _ - Public Property Unterverzeichnis() As String + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBDD_REPORTING_IMPORT.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property EXTENSION() As String Get Try - Return CType(Me(Me.tableTBUV.UnterverzeichnisColumn),String) + Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unterverzeichnis in Tabelle TBUV ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EXTENSION in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e) End Try End Get Set - Me(Me.tableTBUV.UnterverzeichnisColumn) = value + Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) = value End Set End Property _ - Public Function IsIDNull() As Boolean - Return Me.IsNull(Me.tableTBUV.IDColumn) + Public Function IsFILE_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) End Function _ - Public Sub SetIDNull() - Me(Me.tableTBUV.IDColumn) = Global.System.Convert.DBNull + Public Sub SetFILE_NAMENull() + Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUnterverzeichnisNull() As Boolean - Return Me.IsNull(Me.tableTBUV.UnterverzeichnisColumn) + Public Function IsVOLUMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) End Function _ - Public Sub SetUnterverzeichnisNull() - Me(Me.tableTBUV.UnterverzeichnisColumn) = Global.System.Convert.DBNull + Public Sub SetVOLUMENull() + Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) = Global.System.Convert.DBNull End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_REPORTING_IMPORTRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_REPORTING_IMPORTRow - Private eventAction As Global.System.Data.DataRowAction + _ + Public Function IsPAGE_COUNTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) + End Function _ - Public Sub New(ByVal row As TBDD_REPORTING_IMPORTRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Sub SetPAGE_COUNTNull() + Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBDD_REPORTING_IMPORTRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsEXTENSIONNull() As Boolean + Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Public Sub SetEXTENSIONNull() + Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBVEKTOR_ARRAYRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBVEKTOR_ARRAYRow + Partial Public Class TBTC_MOVE_RENAMERow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBTC_MOVE_RENAME As TBTC_MOVE_RENAMEDataTable _ - Public Sub New(ByVal row As TBVEKTOR_ARRAYRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBTC_MOVE_RENAME = CType(Me.Table,TBTC_MOVE_RENAMEDataTable) End Sub _ - Public ReadOnly Property Row() As TBVEKTOR_ARRAYRow + Public Property GUID() As Integer Get - Return Me.eventRow + Return CType(Me(Me.tableTBTC_MOVE_RENAME.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property PROFILE_NAME() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBTC_MOVE_RENAME.PROFILE_NAMEColumn),String) + End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.PROFILE_NAMEColumn) = value + End Set + End Property + + _ + Public Property FOLDER_FOR_INDEX() As String + Get + Return CType(Me(Me.tableTBTC_MOVE_RENAME.FOLDER_FOR_INDEXColumn),String) + End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.FOLDER_FOR_INDEXColumn) = value + End Set + End Property + + _ + Public Property NAMECONVENTION() As String + Get + Return CType(Me(Me.tableTBTC_MOVE_RENAME.NAMECONVENTIONColumn),String) + End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.NAMECONVENTIONColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBTC_MOVE_RENAME.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property CREATED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CREATED_WHO in Tabelle TBTC_MOVE_RENAME ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn) = value + End Set + End Property + + _ + Public Property CREATED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CREATED_WHEN in Tabelle TBTC_MOVE_RENAME ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBTC_MOVE_RENAME ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBTC_MOVE_RENAME ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn) = value + End Set End Property + + _ + Public Function IsCREATED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn) + End Function + + _ + Public Sub SetCREATED_WHONull() + Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCREATED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn) + End Function + + _ + Public Sub SetCREATED_WHENNull() + Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBErgebnisRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBErgebnisRow + Partial Public Class TBVEKTOR_ARRAYRow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable _ - Public Sub New(ByVal row As TBErgebnisRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBVEKTOR_ARRAY = CType(Me.Table,TBVEKTOR_ARRAYDataTable) End Sub _ - Public ReadOnly Property Row() As TBErgebnisRow + Public Property Indexname() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBVEKTOR_ARRAY ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property Wert() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBVEKTOR_ARRAY.WertColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wert in Tabelle TBVEKTOR_ARRAY ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBVEKTOR_ARRAY.WertColumn) = value + End Set End Property + + _ + Public Function IsIndexnameNull() As Boolean + Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) + End Function + + _ + Public Sub SetIndexnameNull() + Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWertNull() As Boolean + Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.WertColumn) + End Function + + _ + Public Sub SetWertNull() + Me(Me.tableTBVEKTOR_ARRAY.WertColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBUVRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBUVRow + Partial Public Class TBErgebnisRow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBErgebnis As TBErgebnisDataTable _ - Public Sub New(ByVal row As TBUVRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBErgebnis = CType(Me.Table,TBErgebnisDataTable) End Sub _ - Public ReadOnly Property Row() As TBUVRow + Public Property Ergebniswerte() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBErgebnis.ErgebniswerteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ergebniswerte in Tabelle TBErgebnis ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBErgebnis.ErgebniswerteColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Function IsErgebniswerteNull() As Boolean + Return Me.IsNull(Me.tableTBErgebnis.ErgebniswerteColumn) + End Function + + _ + Public Sub SetErgebniswerteNull() + Me(Me.tableTBErgebnis.ErgebniswerteColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBUVRow + Inherits Global.System.Data.DataRow + + Private tableTBUV As TBUVDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBUV = CType(Me.Table,TBUVDataTable) + End Sub + + _ + Public Property ID() As Integer Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBUV.IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBUV ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBUV.IDColumn) = value + End Set + End Property + + _ + Public Property Unterverzeichnis() As String + Get + Try + Return CType(Me(Me.tableTBUV.UnterverzeichnisColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unterverzeichnis in Tabelle TBUV ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBUV.UnterverzeichnisColumn) = value + End Set + End Property + + _ + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBUV.IDColumn) + End Function + + _ + Public Sub SetIDNull() + Me(Me.tableTBUV.IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUnterverzeichnisNull() As Boolean + Return Me.IsNull(Me.tableTBUV.UnterverzeichnisColumn) + End Function + + _ + Public Sub SetUnterverzeichnisNull() + Me(Me.tableTBUV.UnterverzeichnisColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_REPORTING_IMPORTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_REPORTING_IMPORTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_REPORTING_IMPORTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_REPORTING_IMPORTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBTC_MOVE_RENAMERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBTC_MOVE_RENAMERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBTC_MOVE_RENAMERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBTC_MOVE_RENAMERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBVEKTOR_ARRAYRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBVEKTOR_ARRAYRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBVEKTOR_ARRAYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBVEKTOR_ARRAYRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBErgebnisRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBErgebnisRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBErgebnisRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBErgebnisRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBUVRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBUVRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBUVRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBUVRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction End Get End Property End Class -End Class - -Namespace MyDatasetTableAdapters +End Class + +Namespace MyDatasetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_REPORTING_IMPORTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_REPORTING_IMPORT" + tableMapping.ColumnMappings.Add("IMPORT_ID", "IMPORT_ID") + tableMapping.ColumnMappings.Add("FILE_NAME", "FILE_NAME") + tableMapping.ColumnMappings.Add("PROFILE_NAME", "PROFILE_NAME") + tableMapping.ColumnMappings.Add("VOLUME", "VOLUME") + tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("EXTENSION", "EXTENSION") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_REPORTING_IMPORT] WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AN"& _ + "D ((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_F"& _ + "ILE_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = "& _ + "1 AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COU"& _ + "NT = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ("& _ + "(@IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTE"& _ + "NSION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IMPORT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VOLUME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VOLUME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EXTENSION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_REPORTING_IMPORT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILE_NAME, PROFILE_N"& _ + "AME, VOLUME, PAGE_COUNT, EXTENSION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILE_NAME,@PROFILE_NAME,@VO"& _ + "LUME,@PAGE_COUNT,@EXTENSION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUM"& _ + "E, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPORT WHERE (IMPORT_ID"& _ + " = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VOLUME", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EXTENSION", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_REPORTING_IMPORT] SET [FILE_NAME] = @FILE_NAME, [PROFILE_NAME] = @PR"& _ + "OFILE_NAME, [VOLUME] = @VOLUME, [PAGE_COUNT] = @PAGE_COUNT, [EXTENSION] = @EXTEN"& _ + "SION, [ADDED_WHEN] = @ADDED_WHEN WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AND "& _ + "((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_FIL"& _ + "E_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = 1 "& _ + "AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COUNT"& _ + " = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ((@"& _ + "IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTENS"& _ + "ION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IMPORT_ID, FILE_NAME, "& _ + "PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPO"& _ + "RT WHERE (IMPORT_ID = @IMPORT_ID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IMPORT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VOLUME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VOLUME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EXTENSION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMPORT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DD_ECMConnString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_REPORTING_IMPORT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_REPORTING_IMPORT" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_REPORTING_IMPORTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable = New MyDataset.TBDD_REPORTING_IMPORTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_REPORTING_IMPORT") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IMPORT_ID,Integer) + If (Original_FILE_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FILE_NAME,String) + End If + If (Original_PROFILE_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PROFILE_NAME,String) + End If + If (Original_VOLUME.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_VOLUME.Value,Decimal) + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Original_PAGE_COUNT.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_PAGE_COUNT.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Original_EXTENSION Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_EXTENSION,String) + End If + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String) As Integer + If (FILE_NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILE_NAME,String) + End If + If (PROFILE_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROFILE_NAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(PROFILE_NAME,String) + End If + If (VOLUME.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(VOLUME.Value,Decimal) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (PAGE_COUNT.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (EXTENSION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EXTENSION,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String, ByVal ADDED_WHEN As Date, ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date, ByVal IMPORT_ID As Integer) As Integer + If (FILE_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILE_NAME,String) + End If + If (PROFILE_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROFILE_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PROFILE_NAME,String) + End If + If (VOLUME.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VOLUME.Value,Decimal) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (PAGE_COUNT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (EXTENSION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EXTENSION,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_IMPORT_ID,Integer) + If (Original_FILE_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FILE_NAME,String) + End If + If (Original_PROFILE_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_PROFILE_NAME,String) + End If + If (Original_VOLUME.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_VOLUME.Value,Decimal) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_PAGE_COUNT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_PAGE_COUNT.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Original_EXTENSION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_EXTENSION,String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(IMPORT_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String, ByVal ADDED_WHEN As Date, ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date) As Integer + Return Me.Update(FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN, Original_IMPORT_ID, Original_FILE_NAME, Original_PROFILE_NAME, Original_VOLUME, Original_PAGE_COUNT, Original_EXTENSION, Original_ADDED_WHEN, Original_IMPORT_ID) + End Function + End Class ''' '''Represents the connection and commands used to retrieve and save data. @@ -2007,7 +3098,7 @@ Namespace MyDatasetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_REPORTING_IMPORTTableAdapter + Partial Public Class TBTC_MOVE_RENAMETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -2124,81 +3215,51 @@ Namespace MyDatasetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_REPORTING_IMPORT" - tableMapping.ColumnMappings.Add("IMPORT_ID", "IMPORT_ID") - tableMapping.ColumnMappings.Add("FILE_NAME", "FILE_NAME") + tableMapping.DataSetTable = "TBTC_MOVE_RENAME" + tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_NAME", "PROFILE_NAME") - tableMapping.ColumnMappings.Add("VOLUME", "VOLUME") - tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("EXTENSION", "EXTENSION") + tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX") + tableMapping.ColumnMappings.Add("NAMECONVENTION", "NAMECONVENTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("CREATED_WHO", "CREATED_WHO") + tableMapping.ColumnMappings.Add("CREATED_WHEN", "CREATED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_REPORTING_IMPORT] WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AN"& _ - "D ((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_F"& _ - "ILE_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = "& _ - "1 AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COU"& _ - "NT = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ("& _ - "(@IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTE"& _ - "NSION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IMPORT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VOLUME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VOLUME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EXTENSION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_REPORTING_IMPORT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILE_NAME, PROFILE_N"& _ - "AME, VOLUME, PAGE_COUNT, EXTENSION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILE_NAME,@PROFILE_NAME,@VO"& _ - "LUME,@PAGE_COUNT,@EXTENSION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUM"& _ - "E, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPORT WHERE (IMPORT_ID"& _ - " = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_NAME, FOLDER_FOR_"& _ + "INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_NAME,@FOLDE"& _ + "R_FOR_INDEX,@NAMECONVENTION,@ACTIVE,@CREATED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"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())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VOLUME", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EXTENSION", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMECONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMECONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CREATED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_REPORTING_IMPORT] SET [FILE_NAME] = @FILE_NAME, [PROFILE_NAME] = @PR"& _ - "OFILE_NAME, [VOLUME] = @VOLUME, [PAGE_COUNT] = @PAGE_COUNT, [EXTENSION] = @EXTEN"& _ - "SION, [ADDED_WHEN] = @ADDED_WHEN WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AND "& _ - "((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_FIL"& _ - "E_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = 1 "& _ - "AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COUNT"& _ - " = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ((@"& _ - "IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTENS"& _ - "ION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IMPORT_ID, FILE_NAME, "& _ - "PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPO"& _ - "RT WHERE (IMPORT_ID = @IMPORT_ID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_NAME = @PROFILE_NAME, F"& _ + "OLDER_FOR_INDEX = @FOLDER_FOR_INDEX, NAMECONVENTION = @NAMECONVENTION, ACTIVE = "& _ + "@ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ + "ECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, C"& _ + "REATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_MOVE_RENAME WHERE (GUID = @GUID"& _ + ")" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IMPORT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VOLUME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VOLUME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EXTENSION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMPORT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMECONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMECONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_REPORTING_IMPORT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_REPORTING_IMPORT" + Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREAT"& _ + "ED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBTC_MOVE_RENAM"& _ + "E"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREAT"& _ + "ED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBTC_MOVE_RENAM"& _ + "E"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME)) AND ACTIVE = 1" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable, ByVal PROFILE_NAME As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (PROFILE_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROFILE_NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String) + End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -2235,9 +3311,48 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As MyDataset.TBDD_REPORTING_IMPORTDataTable + Public Overloads Overridable Function GetData(ByVal PROFILE_NAME As String) As MyDataset.TBTC_MOVE_RENAMEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable = New MyDataset.TBDD_REPORTING_IMPORTDataTable() + If (PROFILE_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROFILE_NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String) + End If + Dim dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable = New MyDataset.TBTC_MOVE_RENAMEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByActive(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable, ByVal PROFILE_NAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (PROFILE_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROFILE_NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByActive(ByVal PROFILE_NAME As String) As MyDataset.TBTC_MOVE_RENAMEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (PROFILE_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROFILE_NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String) + End If + Dim dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable = New MyDataset.TBTC_MOVE_RENAMEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -2245,7 +3360,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -2253,7 +3368,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_REPORTING_IMPORT") + Return Me.Adapter.Update(dataSet, "TBTC_MOVE_RENAME") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IMPORT_ID,Integer) - If (Original_FILE_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FILE_NAME,String) - End If - If (Original_PROFILE_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PROFILE_NAME,String) - End If - If (Original_VOLUME.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_VOLUME.Value,Decimal) - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value - End If - If (Original_PAGE_COUNT.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_PAGE_COUNT.Value,Integer) - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (Original_EXTENSION Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_EXTENSION,String) - End If - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -2329,31 +3410,27 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String) As Integer - If (FILE_NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILE_NAME,String) - End If + Public Overloads Overridable Function Insert(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CREATED_WHO As String) As Integer If (PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROFILE_NAME") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(PROFILE_NAME,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_NAME,String) End If - If (VOLUME.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(2).Value = CType(VOLUME.Value,Decimal) + If (FOLDER_FOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") Else - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String) End If - If (PAGE_COUNT.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer) + If (NAMECONVENTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAMECONVENTION") Else - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(2).Value = CType(NAMECONVENTION,String) End If - If (EXTENSION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean) + If (CREATED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(EXTENSION,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CREATED_WHO,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -2374,69 +3451,30 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String, ByVal ADDED_WHEN As Date, ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date, ByVal IMPORT_ID As Integer) As Integer - If (FILE_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILE_NAME,String) - End If + Public Overloads Overridable Function Update(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROFILE_NAME") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PROFILE_NAME,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_NAME,String) End If - If (VOLUME.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VOLUME.Value,Decimal) + If (FOLDER_FOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String) End If - If (PAGE_COUNT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer) + If (NAMECONVENTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAMECONVENTION") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(NAMECONVENTION,String) End If - If (EXTENSION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EXTENSION,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_IMPORT_ID,Integer) - If (Original_FILE_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FILE_NAME,String) - End If - If (Original_PROFILE_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_PROFILE_NAME,String) - End If - If (Original_VOLUME.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_VOLUME.Value,Decimal) - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (Original_PAGE_COUNT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_PAGE_COUNT.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - End If - If (Original_EXTENSION Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_EXTENSION,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(IMPORT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -2451,14 +3489,6 @@ Namespace MyDatasetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String, ByVal ADDED_WHEN As Date, ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date) As Integer - Return Me.Update(FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN, Original_IMPORT_ID, Original_FILE_NAME, Original_PROFILE_NAME, Original_VOLUME, Original_PAGE_COUNT, Original_EXTENSION, Original_ADDED_WHEN, Original_IMPORT_ID) - End Function End Class ''' @@ -2476,6 +3506,8 @@ Namespace MyDatasetTableAdapters Private _tBDD_REPORTING_IMPORTTableAdapter As TBDD_REPORTING_IMPORTTableAdapter + Private _tBTC_MOVE_RENAMETableAdapter As TBTC_MOVE_RENAMETableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -2505,6 +3537,20 @@ Namespace MyDatasetTableAdapters End Set End Property + _ + Public Property TBTC_MOVE_RENAMETableAdapter() As TBTC_MOVE_RENAMETableAdapter + Get + Return Me._tBTC_MOVE_RENAMETableAdapter + End Get + Set + Me._tBTC_MOVE_RENAMETableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -2528,6 +3574,10 @@ Namespace MyDatasetTableAdapters AndAlso (Not (Me._tBDD_REPORTING_IMPORTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_REPORTING_IMPORTTableAdapter.Connection End If + If ((Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBTC_MOVE_RENAMETableAdapter.Connection) Is Nothing)) Then + Return Me._tBTC_MOVE_RENAMETableAdapter.Connection + End If Return Nothing End Get Set @@ -2544,6 +3594,9 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -2564,6 +3617,15 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBTC_MOVE_RENAME.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBTC_MOVE_RENAMETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -2582,6 +3644,14 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBTC_MOVE_RENAME.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBTC_MOVE_RENAMETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -2592,6 +3662,14 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 + If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBTC_MOVE_RENAME.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBTC_MOVE_RENAMETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_REPORTING_IMPORT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -2646,6 +3724,11 @@ Namespace MyDatasetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBTC_MOVE_RENAMETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -2689,6 +3772,15 @@ Namespace MyDatasetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_REPORTING_IMPORTTableAdapter.Adapter) End If End If + If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBTC_MOVE_RENAMETableAdapter, Me._tBTC_MOVE_RENAMETableAdapter.Connection) + Me._tBTC_MOVE_RENAMETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBTC_MOVE_RENAMETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBTC_MOVE_RENAMETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBTC_MOVE_RENAMETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBTC_MOVE_RENAMETableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -2753,6 +3845,10 @@ Namespace MyDatasetTableAdapters Me._tBDD_REPORTING_IMPORTTableAdapter.Connection = CType(revertConnections(Me._tBDD_REPORTING_IMPORTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_REPORTING_IMPORTTableAdapter.Transaction = Nothing End If + If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then + Me._tBTC_MOVE_RENAMETableAdapter.Connection = CType(revertConnections(Me._tBTC_MOVE_RENAMETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBTC_MOVE_RENAMETableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/ToolCollection/MyDataset.xsc b/ToolCollection/MyDataset.xsc index 05b0199..2332df3 100644 --- a/ToolCollection/MyDataset.xsc +++ b/ToolCollection/MyDataset.xsc @@ -5,5 +5,20 @@ the code is regenerated. --> - + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ToolCollection/MyDataset.xsd b/ToolCollection/MyDataset.xsd index 17a2bb0..5e56718 100644 --- a/ToolCollection/MyDataset.xsd +++ b/ToolCollection/MyDataset.xsd @@ -89,6 +89,88 @@ SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_ + + + + + + DELETE FROM TBTC_MOVE_RENAME +WHERE (GUID = @Original_GUID) + + + + + + + + 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()) + + + + + + + + + + + + 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)) + + + + + + + + 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) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + + + + @@ -151,11 +233,60 @@ SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ToolCollection/MyDataset.xss b/ToolCollection/MyDataset.xss index 53a2c92..fe42316 100644 --- a/ToolCollection/MyDataset.xss +++ b/ToolCollection/MyDataset.xss @@ -6,10 +6,11 @@ --> - - - - + + + + + \ No newline at end of file diff --git a/ToolCollection/Resources/action_add_16xMD.png b/ToolCollection/Resources/action_add_16xMD.png new file mode 100644 index 0000000000000000000000000000000000000000..d1ad503318eff8e60972ef3652a59dc67ee080f3 GIT binary patch literal 173 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP%z%p z#WAEJ?&#!$Tn7v|oX>uEvi;}Iy4m67vv^n>mzbz~dsirm2|7yKZV~y<&rnqMy-7{! z=L6;RtR<@~XW!h(p<7nmZ=!Ld*+TWuSt;TCD@@bpu~!$UIrUzC{VV;J^d8B2Ev1eM S?UO*O7(8A5T-G@yGywp!aygIy literal 0 HcmV?d00001 diff --git a/ToolCollection/ToolCollection.vbproj b/ToolCollection/ToolCollection.vbproj index 4d531a6..3aad54e 100644 --- a/ToolCollection/ToolCollection.vbproj +++ b/ToolCollection/ToolCollection.vbproj @@ -239,6 +239,12 @@ Form + + frmNIMoveRenameNamenkonvention.vb + + + Form + frmNB_AD.vb @@ -251,6 +257,12 @@ Form + + frmNIMoveRename.vb + + + Form + frmNIVerknuepfungen.vb @@ -382,6 +394,7 @@ + True @@ -427,12 +440,22 @@ frmMORE_Verwaltung.vb + + frmNIMoveRenameNamenkonvention.vb + + + frmNIMoveRenameNamenkonvention.vb + frmNB_AD.vb frmNB_AD_add.vb + + frmNIMoveRename.vb + Designer + frmNIVerknuepfungen.vb @@ -799,6 +822,7 @@ + Always diff --git a/ToolCollection/app.config b/ToolCollection/app.config index 456bb4d..a2fb211 100644 --- a/ToolCollection/app.config +++ b/ToolCollection/app.config @@ -14,7 +14,7 @@ - @@ -252,6 +252,12 @@ + + True + + + False + diff --git a/ToolCollection/frmDIHauptseite.vb b/ToolCollection/frmDIHauptseite.vb index efec1ea..df0177e 100644 --- a/ToolCollection/frmDIHauptseite.vb +++ b/ToolCollection/frmDIHauptseite.vb @@ -56,7 +56,7 @@ Public Class frmDIHauptseite Private threadDateiimport As BackgroundWorker 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 arrayDateiinformationen As ArrayList Private CriticalErrorInBackgroundWorker As Boolean = False @@ -68,8 +68,8 @@ Public Class frmDIHauptseite Private Manuell As Boolean = False Private Durchlauf As Boolean = False - Private dateienImportiert As Integer = 0 - Private dateienGesamt As Integer = 0 + Private CountFilesImported As Integer = 0 + Private CountFiles2Import As Integer = 0 Private bgwQuelldatei = "" Private bgwZielordner = "" @@ -419,31 +419,31 @@ Public Class frmDIHauptseite Private Sub Profil_Durchlauf() 'Array zum Speichern der Subdirectories - Dim DirList As New ArrayList + Dim oSubDirectoryList As New ArrayList 'Array zum Speichern der nicht bearbeiteten Dateien - Dim fileAusschluss_List As New ArrayList + Dim oFileAusschlussList As New ArrayList 'Variable für das "Letzte Subdirectory" - Dim last_Folder_in_Files As String = "" + Dim oLastFolderinFiles As String = "" 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 - 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 - If Me.files IsNot Nothing Then - Me.dateienImportiert = 0 + If Me.ImportFileList IsNot Nothing Then + Me.CountFilesImported = 0 If Durchlauf = True Then - Me.dateienGesamt = Gesamtfiles + Me.CountFiles2Import = Gesamtfiles Else - Me.dateienGesamt = Me.files.Count + Me.CountFiles2Import = Me.ImportFileList.Count End If 'Me.lblProgress.Text = Me.dateienImportiert & " von " & Me.dateienGesamt & " Dateien importiert" 'Me.lblProgress.Visible = True Me.arrayDateiinformationen = New ArrayList - If Me.files.Count > 0 Then - ClassLoggerDI.Add(" Insgesamt sollen " & Me.files.Count & " Dateien importiert werden", False) + If Me.ImportFileList.Count > 0 Then + ClassLoggerDI.Add(" Insgesamt sollen " & Me.ImportFileList.Count & " Dateien importiert werden", False) Else ClassLoggerDI.Add(" Keine Dateien vorhanden", False) End If @@ -452,19 +452,19 @@ Public Class frmDIHauptseite If Me.selectedProfile.Subdirectories = True Then MyDataset.TBUV.Clear() For Each di In Directory.GetDirectories(Path.GetDirectoryName(Me.selectedProfile.OriginalQuellordner & "\"), "*.*") - GetDirectories(Me.selectedProfile.OriginalQuellordner & "\", DirList) + GetDirectories(Me.selectedProfile.OriginalQuellordner & "\", oSubDirectoryList) Next - For Each Dir As String In DirList - last_Folder_in_Files = Dir + For Each Dir As String In oSubDirectoryList + oLastFolderinFiles = Dir Next - DirList.Reverse() + oSubDirectoryList.Reverse() Else - last_Folder_in_Files = Me.selectedProfile.OriginalQuellordner + oLastFolderinFiles = Me.selectedProfile.OriginalQuellordner End If - For Each filename As String In Me.files + For Each filename As String In Me.ImportFileList ' 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 'Dim indexArray As ArrayList = New ArrayList 'indexArray = Me.selectedProfile.GetIndexArray(filename, Me.txtQuellordner.Text) @@ -476,21 +476,21 @@ Public Class frmDIHauptseite Exit Sub End If 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) End If 'Console.WriteLine("Durchlauf von DoWork") - Me.dateienImportiert = 0 + Me.CountFilesImported = 0 If Durchlauf = True Then - Me.dateienGesamt = Gesamtfiles + Me.CountFiles2Import = Gesamtfiles Else - Me.dateienGesamt = Me.files.Count + Me.CountFiles2Import = Me.ImportFileList.Count End If ' alle Dateien durchlaufen - For Each filenameQuelle As String In Me.files + For Each filenameQuelle As String In Me.ImportFileList fileAusschliessen = False If filenameQuelle.StartsWith("~$") Then fileAusschliessen = True @@ -529,11 +529,11 @@ Public Class frmDIHauptseite ClassLoggerDI.Add(" ", False) End If 'File in Array speichern - fileAusschluss_List.Add(filenameQuelle) + oFileAusschlussList.Add(filenameQuelle) Me.oWMStream_Result = 0 - Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) - Me.dateienImportiert += 1 + Me.threadDateiimport.ReportProgress(Me.CountFilesImported / Me.CountFiles2Import * 100) + Me.CountFilesImported += 1 Else 'Datei nicht in Benutzung 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) End If 'File in Array speichern - fileAusschluss_List.Add(filenameQuelle) + oFileAusschlussList.Add(filenameQuelle) Me.oWMStream_Result = 0 - Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) - Me.dateienImportiert += 1 + Me.threadDateiimport.ReportProgress(Me.CountFilesImported / Me.CountFiles2Import * 100) + Me.CountFilesImported += 1 Else 'Datei kann bearbeitet werden Me.bgwQuelldatei = filenameQuelle @@ -645,7 +645,7 @@ Public Class frmDIHauptseite If Me.oWMStream_Result = 0 Then Try 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 End Try @@ -699,8 +699,8 @@ Public Class frmDIHauptseite End If 'Hochzählen - Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) - Me.dateienImportiert += 1 + Me.threadDateiimport.ReportProgress(Me.CountFilesImported / Me.CountFiles2Import * 100) + Me.CountFilesImported += 1 Else CriticalErrorInBackgroundWorker = False Me.threadDateiimport.CancelAsync() @@ -719,10 +719,10 @@ Public Class frmDIHauptseite If selectedProfile.UVVerzeichnisLoeschen = True Then If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Unterverzeichnisse sollen gelöscht werden.", False) - If fileAusschluss_List.Count > 0 Then - For Each Dir As String In DirList + If oFileAusschlussList.Count > 0 Then + For Each Dir As String In oSubDirectoryList 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 ClassLoggerDI.Add(" - Das Unterverzeichnis '" & Dir & "' kann nicht gelöscht werden weil es noch zu importierende Dateien enthält!", False) dir_ex = True @@ -742,7 +742,7 @@ Public Class frmDIHauptseite Next Else - For Each Dir As String In DirList + For Each Dir As String In oSubDirectoryList My.Computer.FileSystem.DeleteDirectory(Dir, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty) If Err.Number > 0 Then ClassLoggerDI.Add(" - Das Unterverzeichnis '" & Dir & "' wurde NICHT gelöscht", False) @@ -773,11 +773,11 @@ Public Class frmDIHauptseite #Region "*** Fortschritt hat sich verändert ***" Private Sub threadDateiimport_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) 'Handles threadDateiimport.ProgressChanged 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) 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)) '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 ' 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("############# Me.TreeNodeInfos(" & Me.dateienImportiert - 1 & ", " & i & ") = " & Me.TreeNodeInfos(Me.dateienImportiert - 1)(i)) ' *** Farben festlegen *** - If Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Ziel:") Then - Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.DarkGreen - ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Dokumenttyp:") Then - Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.Green - ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Zielindex:") Then - Me.tvLog.Nodes(Me.dateienImportiert - 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 - Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.Gold + If Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Ziel:") Then + Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.DarkGreen + ElseIf Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Dokumenttyp:") Then + Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.Green + ElseIf Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Zielindex:") Then + Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.Goldenrod + ElseIf Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Bei dem Zielindex handelt es sich um ein Vektorfeld") Then + 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 ' Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.IndianRed - ElseIf Me.TreeNodeInfos(Me.dateienImportiert - 1)(i).ToString.StartsWith("Hinweis:") Then - Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes(i).ForeColor = Color.Red + ElseIf Me.TreeNodeInfos(Me.CountFilesImported - 1)(i).ToString.StartsWith("Hinweis:") Then + Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(i).ForeColor = Color.Red 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 Next End If Else - Me.tvLog.Nodes(Me.dateienImportiert - 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.dateienImportiert - 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.dateienImportiert - 1).Nodes(1).ForeColor = Color.Red + Me.tvLog.Nodes(Me.CountFilesImported - 1).ForeColor = Color.Red + Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes.Add("Möglicherweise stehen nicht ausreichend Schreibrechte zur Verfügung") + Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes.Add("oder Datei ist in Benutzung. Check Log-Datei") + Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(0).ForeColor = Color.Red + Me.tvLog.Nodes(Me.CountFilesImported - 1).Nodes(1).ForeColor = Color.Red End If 'Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes.Add("Dateiname: " & dateiname.Substring(dateiname.LastIndexOf("\") + 1)) @@ -1025,23 +1025,75 @@ Public Class frmDIHauptseite End If 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) + Dim oFilenameOnly As String = Path.GetFileName(filenameQuelle) + Dim oStopWatchTimer As SW + Dim oStopWatchTimerC As SW 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 If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then My.Computer.FileSystem.CreateDirectory(zielpfad) - ClassLoggerDI.Add(" - Zielverzeichnis neu erzeugt!", False) + ClassLoggerDI.Add("Zielverzeichnis neu erzeugt!", False) End If 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 = "" ' Objekt für Datei und Zielverzeichnis anlegen Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Quelldatei gelesen", False) + DetailLog(">> Quelldatei gelesen") _Step = "1" '## Prüfen ob Datum-Ordnerhierarchie erstellt werden soll If selectedProfile.Date_UV.ToString <> "" Then @@ -1072,26 +1124,30 @@ Public Class frmDIHauptseite My.Computer.FileSystem.CreateDirectory(zielpfad & "\" & My.Computer.Clock.LocalTime.Year) zielpfad = zielpfad & "\" & My.Computer.Clock.LocalTime.Year End Select - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Zielpfad erzeugt: '" & zielpfad & "'", False) + DetailLog(">> Zielpfad erzeugt: '" & zielpfad & "'") End If _Step = "2" '######## Dim Zielverzeichnis As String = zielpfad 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 'Try to create the directory. Try Directory.CreateDirectory(Zielverzeichnis) Catch ex As Exception 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 End Try End If _Step = "2.1" 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 Dim dvr As New DriveInfo(My.Settings.vWLaufwerk & ":") Dim freeSpace = dvr.TotalFreeSpace @@ -1101,20 +1157,24 @@ Public Class frmDIHauptseite Dim length As Long = info.Length If freeSpace < length Then 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 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 oFileIO 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 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 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 Dim LoggedIn = _windream.oWMSession.aLoggedin @@ -1126,32 +1186,36 @@ Public Class frmDIHauptseite '================================================================== ' 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 - 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" - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) + DetailLog(">> _Step: " & _Step) wdFilexists = _windream.oWMSession.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) 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() '================================================================== ' create an object '================================================================== _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) If Err.Number > 0 Then 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) End If ' MsgBox("Created file: " + endgültigerDateiname) Else _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 - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) + DetailLog("-> DATEI IST BEREITS VORHANDEN") Err.Clear() '### Automatische Versionierung mit ~ (Tilde) ### 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(".")) 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 endgültigerDateiname = neuername & extension version = version + 1 Loop _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) If Err.Number > 0 Then 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) End If - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - WMObject zugewiesen", False) + DetailLog(">> WMObject zugewiesen") End If _Step = "3.2" - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) + DetailLog(">> _Step: " & _Step) + DetailLog(">> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname) If oNewWMObject IsNot Nothing Then ' lock object for file system access (to change the file itself) 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) oNewWMObject.Unlock() System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) + If My.Settings.StopwatchTimerActive = True Then + oStopWatchTimer.Done() + oStopWatchTimerC.Done() + End If Return -1 ' MsgBox(Err.Description) End If _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 oWMStream = oNewWMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) If Err.Number > 0 Then ClassLoggerDI.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") oNewWMObject.Unlock() System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) + If My.Settings.StopwatchTimerActive = True Then + oStopWatchTimer.Done() + oStopWatchTimerC.Done() + End If Return -1 'MsgBox(Err.Description) End If - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - oWMStream erzeugt", False) + DetailLog(">> oWMStream erzeugt") ' give fileIO helper object the windream stream _Step = "3.4" - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) + DetailLog(">> _Step: " & _Step) oFileIO.aWMStream = oWMStream If Err.Number > 0 Then ClassLoggerDI.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") oNewWMObject.Unlock() System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) + If My.Settings.StopwatchTimerActive = True Then + oStopWatchTimer.Done() + oStopWatchTimerC.Done() + End If Return -1 'MsgBox(Err.Description) End If @@ -1220,18 +1300,26 @@ Public Class frmDIHauptseite ClassLoggerDI.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") oNewWMObject.Unlock() System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) + If My.Settings.StopwatchTimerActive = True Then + oStopWatchTimer.Done() + oStopWatchTimerC.Done() + End If Return -1 ' MsgBox(Err.Description) 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 _Step = "3.5" - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) + DetailLog(">> _Step: " & _Step) oWMStream.Close() If Err.Number > 0 Then ClassLoggerDI.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") oNewWMObject.Unlock() System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) + If My.Settings.StopwatchTimerActive = True Then + oStopWatchTimer.Done() + oStopWatchTimerC.Done() + End If Return -1 'MsgBox(Err.Description) End If @@ -1244,33 +1332,48 @@ Public Class frmDIHauptseite Return -1 'MsgBox(Err.Description) End If - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei konnte gespeichert werden", False) + DetailLog(">> Datei konnte gespeichert werden") ' unlock the windream object _Step = "3.6" - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) + DetailLog(">> _Step: " & _Step) oNewWMObject.unlock() If Err.Number > 0 Then ClassLoggerDI.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") oNewWMObject.Unlock() System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) + If My.Settings.StopwatchTimerActive = True Then + oStopWatchTimer.Done() + oStopWatchTimerC.Done() + End If Return -1 'MsgBox(Err.Description) End If 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) + If My.Settings.StopwatchTimerActive = True Then + oStopWatchTimer.Done() + oStopWatchTimerC.Done() + End If Return -1 End If 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist _Step = "3.7" - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) - Dim info2 As New FileInfo(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) - Dim length1 As Long = info2.Length - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Length der Zieldatei: " & length1.ToString, False) - If length1 > 0 And Err.Number = 0 Then + DetailLog(">> _Step: " & _Step) + Dim oFILenth As FileInfo + Dim oIFLength As Long + If My.Settings.DIOpt_CheckLength = True 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" - 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 Try oNewWMObject.Unlock() @@ -1280,6 +1383,10 @@ Public Class frmDIHauptseite Try ClassLoggerDI.Add(" FEHLER bei Dateiindexieren - Datei" & endgültigerDateiname & " wird wieder gelöscht!") 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 ClassLoggerDI.Add(" Datei konnte nicht gelöscht werden! " & ex.Message) End Try @@ -1297,31 +1404,70 @@ Public Class frmDIHauptseite End If DI_STREAMRESULTFILE = My.Settings.vWLaufwerk & ":" & p 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 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 End If Else - _Step = "5" - If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) - System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) - ClassLoggerDI.Add(" FEHLER bei Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht- Überprüfen Sie Log-File") - Return -1 + If My.Settings.DIOpt_CheckLength = True And oIFLength = 0 Then + _Step = "5" + DetailLog(">>_Step: " & _Step) + System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname) + 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 Else + If My.Settings.StopwatchTimerActive = True Then + oStopWatchTimer.Done() + oStopWatchTimerC.Done() + End If Return -1 End If 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 End If Catch ex As Exception 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 End Try @@ -2322,7 +2468,7 @@ Public Class frmDIHauptseite End Sub 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 CType(sender, TextBox).BackColor = Color.Lime End Sub diff --git a/ToolCollection/frmDIProfilEigenschaften.Designer.vb b/ToolCollection/frmDIProfilEigenschaften.Designer.vb index 9631a42..a16ca48 100644 --- a/ToolCollection/frmDIProfilEigenschaften.Designer.vb +++ b/ToolCollection/frmDIProfilEigenschaften.Designer.vb @@ -332,9 +332,9 @@ Partial Class frmDIProfilEigenschaften Me.txtlastRun.BackColor = System.Drawing.Color.WhiteSmoke 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.Location = New System.Drawing.Point(356, 39) + Me.txtlastRun.Location = New System.Drawing.Point(367, 39) 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 ' 'Label7 @@ -448,7 +448,7 @@ Partial Class frmDIProfilEigenschaften Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(376, 26) 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)" ' '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.Location = New System.Drawing.Point(453, 43) 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.Text = "nur Jahr (JJJJ)" 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.Location = New System.Drawing.Point(250, 43) 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.Text = "Jahr-Monat (JJJJ-MM)" 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.Location = New System.Drawing.Point(24, 43) 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.TabStop = True 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.Location = New System.Drawing.Point(6, 48) 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.Text = "in Verzeichnis" ' diff --git a/ToolCollection/frmDIProfilHinzufuegen.Designer.vb b/ToolCollection/frmDIProfilHinzufuegen.Designer.vb index 319c687..ecfa775 100644 --- a/ToolCollection/frmDIProfilHinzufuegen.Designer.vb +++ b/ToolCollection/frmDIProfilHinzufuegen.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmDIProfilHinzufuegen Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() @@ -17,7 +17,7 @@ Partial Class frmDIProfilHinzufuegen '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. - _ + Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilHinzufuegen)) Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox() @@ -52,9 +52,7 @@ Partial Class frmDIProfilHinzufuegen Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.chkb_DateUV = New System.Windows.Forms.CheckBox() Me.chkb_Subdirectories = New System.Windows.Forms.CheckBox() - Me.rbUV_Date1 = New System.Windows.Forms.RadioButton() - Me.rbUV_Date2 = New System.Windows.Forms.RadioButton() - Me.rbUV_Date3 = New System.Windows.Forms.RadioButton() + Me.Label6 = New System.Windows.Forms.Label() Me.boxImportoptionenLoeschen.SuspendLayout() Me.boxImportoptionenBackup.SuspendLayout() Me.GroupBox1.SuspendLayout() @@ -167,7 +165,7 @@ Partial Class frmDIProfilHinzufuegen Me.lblImportoptionenBackupOrdner.Enabled = False Me.lblImportoptionenBackupOrdner.Location = New System.Drawing.Point(6, 48) 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.Text = "in Verzeichnis:" ' @@ -187,8 +185,8 @@ Partial Class frmDIProfilHinzufuegen Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(469, 35) Me.Label5.TabIndex = 32 - 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" & _ + 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" & "st." ' 'btnAbbrechen @@ -319,9 +317,7 @@ Partial Class frmDIProfilHinzufuegen ' 'GroupBox1 ' - Me.GroupBox1.Controls.Add(Me.rbUV_Date3) - Me.GroupBox1.Controls.Add(Me.rbUV_Date2) - Me.GroupBox1.Controls.Add(Me.rbUV_Date1) + Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.chkb_DateUV) Me.GroupBox1.Location = New System.Drawing.Point(15, 266) Me.GroupBox1.Name = "GroupBox1" @@ -350,37 +346,16 @@ Partial Class frmDIProfilHinzufuegen Me.chkb_Subdirectories.Text = "Unterverzeichnisse einbeziehen (Ordnerstruktur wird komplett übernommen)" Me.chkb_Subdirectories.UseVisualStyleBackColor = True ' - 'rbUV_Date1 - ' - Me.rbUV_Date1.AutoSize = True - Me.rbUV_Date1.Checked = True - Me.rbUV_Date1.Location = New System.Drawing.Point(27, 43) - Me.rbUV_Date1.Name = "rbUV_Date1" - Me.rbUV_Date1.Size = New System.Drawing.Size(175, 17) - Me.rbUV_Date1.TabIndex = 1 - Me.rbUV_Date1.TabStop = True - Me.rbUV_Date1.Text = "Jahr-Monat-Tag (JJJJ-MM-DD)" - 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 + 'Label6 + ' + Me.Label6.AutoSize = 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.Label6.Location = New System.Drawing.Point(28, 40) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(243, 15) + Me.Label6.TabIndex = 1 + Me.Label6.Text = "Detaileinstellungen nach Speichern im Profil" + Me.Label6.Visible = False ' 'frmDIProfilHinzufuegen ' @@ -457,7 +432,5 @@ Partial Class frmDIProfilHinzufuegen Friend WithEvents chkb_DateUV As System.Windows.Forms.CheckBox Friend WithEvents chkb_Subdirectories As System.Windows.Forms.CheckBox Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox - Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton - Friend WithEvents rbUV_Date2 As System.Windows.Forms.RadioButton - Friend WithEvents rbUV_Date1 As System.Windows.Forms.RadioButton + Friend WithEvents Label6 As Label End Class diff --git a/ToolCollection/frmDIProfilHinzufuegen.vb b/ToolCollection/frmDIProfilHinzufuegen.vb index c92b547..78be87a 100644 --- a/ToolCollection/frmDIProfilHinzufuegen.vb +++ b/ToolCollection/frmDIProfilHinzufuegen.vb @@ -32,7 +32,7 @@ Me.ObjekttypenEintragen() frmLogin_DI.Close() - + Label6.Visible = False End Sub Private Sub btnQuellordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellordner.Click 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 If Me.txtProfilname.Text.Length > 0 And Me.cmbObjekttyp.SelectedIndex <> -1 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, _ - Me.txtZielordner.Text, Me.chkImportoptionenBackup.Checked, Me.txtBackupordner.Text, _ - Me.chkDateienÜberschreiben.Checked, Me.chkDateienLoeschen.Checked, _ - Me.chkb_DateUV.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.chkDateienÜberschreiben.Checked, Me.chkDateienLoeschen.Checked, + Me.chkb_DateUV.Checked, Me.chkQuellverzeichnisLoeschen.Checked, 0, False, "", "", chkUVloeschen.Checked) Me.Close() Else @@ -153,6 +153,14 @@ End Sub 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 Class \ No newline at end of file diff --git a/ToolCollection/frmNIHauptseite.Designer.vb b/ToolCollection/frmNIHauptseite.Designer.vb index 48ad7c4..9b4be6c 100644 --- a/ToolCollection/frmNIHauptseite.Designer.vb +++ b/ToolCollection/frmNIHauptseite.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmNIHauptseite Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try 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. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() 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.ProgressBar2 = New System.Windows.Forms.ProgressBar() 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.pnlInfos = New System.Windows.Forms.Panel() Me.Label8 = New System.Windows.Forms.Label() @@ -54,7 +52,6 @@ Partial Class frmNIHauptseite Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.txtBody = New System.Windows.Forms.TextBox() - Me.btntestmail = New System.Windows.Forms.Button() Me.txtEmpfaenger = New System.Windows.Forms.TextBox() Me.Label13 = New System.Windows.Forms.Label() Me.txtBetreff = New System.Windows.Forms.TextBox() @@ -71,7 +68,6 @@ Partial Class frmNIHauptseite Me.Button1 = New System.Windows.Forms.Button() Me.chkbEmail = New System.Windows.Forms.CheckBox() Me.timRun = New System.Windows.Forms.Timer(Me.components) - Me.MyDataset = New ToolCollection.MyDataset() Me.DS_More = New ToolCollection.DS_More() Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) 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_HISTORYTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter() 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.tpMain.SuspendLayout() Me.StatusStrip1.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlInfos.SuspendLayout() CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() Me.gbEmail.SuspendLayout() Me.GroupBox3.SuspendLayout() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DS_More, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, 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() ' 'tcmain @@ -203,29 +207,6 @@ Partial Class frmNIHauptseite Me.Label2.TabIndex = 26 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 ' 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 ' 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.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.Size = New System.Drawing.Size(55, 22) Me.numIntervall.TabIndex = 38 @@ -429,18 +409,6 @@ Partial Class frmNIHauptseite Me.txtBody.TabIndex = 13 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 ' 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 ' - 'MyDataset - ' - Me.MyDataset.DataSetName = "MyDataset" - Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'DS_More ' Me.DS_More.DataSetName = "DS_More" @@ -629,6 +592,62 @@ Partial Class frmNIHauptseite ' 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 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -647,7 +666,6 @@ Partial Class frmNIHauptseite Me.tpMain.PerformLayout() Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlInfos.ResumeLayout(False) Me.pnlInfos.PerformLayout() CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).EndInit() @@ -656,10 +674,12 @@ Partial Class frmNIHauptseite Me.gbEmail.PerformLayout() Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DS_More, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, 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) End Sub @@ -719,4 +739,7 @@ Partial Class frmNIHauptseite Friend WithEvents tslblStatus As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents TimerRefresh As System.Windows.Forms.Timer 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 diff --git a/ToolCollection/frmNIHauptseite.resx b/ToolCollection/frmNIHauptseite.resx index 2ed6551..1705b2d 100644 --- a/ToolCollection/frmNIHauptseite.resx +++ b/ToolCollection/frmNIHauptseite.resx @@ -126,9 +126,6 @@ 17, 17 - - 109, 17 - 219, 17 @@ -150,6 +147,18 @@ 365, 56 + + 109, 17 + + + 488, 56 + + + 739, 56 + + + 984, 56 + 297 diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index c4d5096..fdbd247 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -1,5 +1,6 @@ Imports System.ComponentModel Imports System.IO +Imports System.Text.RegularExpressions Imports DigitalData.Modules.Logging Imports WINDREAMLib @@ -120,6 +121,7 @@ Public Class frmNIHauptseite Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load Try LoadAllModules() + TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DD_ECMConnString Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei frmNIHauptseite_Load") _Logger.Warn("Fehler bei frmNIHauptseite_Load: " & ex.Message) @@ -709,7 +711,7 @@ Public Class frmNIHauptseite Dim swWorkDocument_All As New ClassStopwatch("WorkDocument_All") _Logger.Info("IndexiereVerarbeiteDokument '" & Me.aktivesDokument.aName & "'") ' dient zum Überprüfen auf Fehler - Dim error_in_Indexierung As Boolean = False + Dim oUnexpectedError As Boolean = False Dim unvollstaendig As Boolean = False _MRKONVERT_FEHLER = 0 Dim result As String = "" @@ -735,7 +737,7 @@ Public Class frmNIHauptseite Volltext_indexer(dokument, fulltext) Catch ex As Exception _Logger.Error(ex) - error_in_Indexierung = True + oUnexpectedError = True unvollstaendig = True File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) @@ -743,11 +745,11 @@ Public Class frmNIHauptseite Case "db" - error_in_Indexierung = Check_Desk_Index() + oUnexpectedError = Check_Desk_Index() 'If aktivesProfil.checkIndexsql = "" Then ' _Logger.Debug("# HINWEIS: Eine sql-Überprüfung des Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen!#") '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") '################## '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 _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!" - error_in_Indexierung = True + oUnexpectedError = True unvollstaendig = True File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) 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 _Logger.Error(ex) - error_in_Indexierung = True + oUnexpectedError = True SetErrorMeldung("Error while Checking DeskriptiveIndex", aktivesDokument, My.Settings.ERROR_INDEX) End Try End If @@ -803,7 +805,7 @@ Public Class frmNIHauptseite SetErrorMeldung("Nachindexdatei NOT EXISTING", aktivesDokument, My.Settings.ERROR_INDEX) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) fehlermsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!" - error_in_Indexierung = True + oUnexpectedError = True End If End If Case "activedirectory" @@ -823,7 +825,7 @@ Public Class frmNIHauptseite 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 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 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 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) @@ -888,12 +890,12 @@ Public Class frmNIHauptseite ' wenn beim Auslesen des Wertes für den aktuellen windream-Index kein Fehler auftrat ' 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) _Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist EMPTY oder NOTHING") _Logger.Warn("SQL-String bisher: " & oSqlCommand) ' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden - error_in_Indexierung = True + oUnexpectedError = True Else ' den Platzhalter im SQL-String durch den Wert ersetzen oSqlCommand = oSqlCommand.Replace(element.Value, IndexwertAusWindream.ToString) @@ -918,15 +920,15 @@ Public Class frmNIHauptseite result &= vbNewLine & " " & oSqlCommand ' wenn kein error_in_Indexierung aufgetreten ist - If error_in_Indexierung = False Then - Dim _NidxWert = Nothing ' Der Nachindexierungswert: entweder aus Datenbankabrage oder aus xml-File + If oUnexpectedError = False Then + Dim oResultNachindexierung = Nothing ' Der Nachindexierungswert: entweder aus Datenbankabrage oder aus xml-File 'Indexierung gegen ein Indexfeld If INDEX_SQL_BEFEHL.Spalte.StartsWith("%") And INDEX_SQL_BEFEHL.Spalte.EndsWith("%") Then 'Ein manueller Wert in der Verknüpfung _Logger.Debug("Indexierung mit einem manuellem Wert") Dim _wert As String = INDEX_SQL_BEFEHL.Spalte.Replace("%", "") - _NidxWert = _wert - _Logger.Debug("Manueller Wert: '" & _NidxWert & "'") + oResultNachindexierung = _wert + _Logger.Debug("Manueller Wert: '" & oResultNachindexierung & "'") Else Dim Arr() As Object ''########### @@ -968,12 +970,12 @@ Public Class frmNIHauptseite ReDim Preserve selectArray(0) 'MsgBox("Nur ein Einfachindex :(" & vbNewLine & IndexwertAusWindream.ToString) selectArray(0) = oSqlCommand - _Logger.Warn("IndexwertAusWindream Is Nothing: Select: '" & oSqlCommand & "'") + _Logger.Warn("IndexwertAusWindream Is Nothing: Select so far: '" & oSqlCommand & "'") End If 'Nur wenn KEIN INDEXWERT also KEIN MANUELLER WERT - If _NidxWert Is Nothing Then + If oResultNachindexierung Is Nothing Then 'Indexwert über DB oder Datei Select Case aktivesProfil.Ni_Art.ToLower Case "db" @@ -988,15 +990,16 @@ Public Class frmNIHauptseite 'MessageBox.Show("Select: " & vbNewLine & selectArray(i)) ' die SQL-Abfrage durchführen (liefert den Wert der in den windream-Index geschrieben werden soll) 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 - _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 - _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 - _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 - _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 Next Case "xml" @@ -1008,15 +1011,15 @@ Public Class frmNIHauptseite 'Dateipfad für xffres/xml-Datei zusammenbauen If File.Exists(_pathxmlfile) Then 'Ü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 - If _NidxWert Is Nothing Then + If oResultNachindexierung Is Nothing Then File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX) End If Else _Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!") - error_in_Indexierung = True + oUnexpectedError = True fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!" End If ElseIf aktivesProfil.xmlEnd = "xml (ZugFerd)" Then @@ -1024,21 +1027,21 @@ Public Class frmNIHauptseite 'Dateipfad für xffres/xml-Datei zusammenbauen If File.Exists(_pathxmlfile) Then 'Ü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 - If _NidxWert Is Nothing Then + If oResultNachindexierung Is Nothing Then File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX) End If Else _Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!") - error_in_Indexierung = True + oUnexpectedError = True fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!" End If End If '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 (_NidxWert = "") Or (_NidxWert Is Nothing) Then + If Not oUnexpectedError And aktivesProfil.Desk_windreamIndex = INDEX_SQL_BEFEHL.Index And aktivesProfil.checkIndexsql <> "" Then + If (oResultNachindexierung = "") Or (oResultNachindexierung Is Nothing) Then _Logger.Warn("ACHTUNG: der XML-Wert (Formrecognition) ist leer! Dies kann zu Fehlern führen!") 'Markierung Validation File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) @@ -1046,9 +1049,9 @@ Public Class frmNIHauptseite SetErrorMeldung("Wert aus Formrec. ist leer", aktivesDokument, My.Settings.ERROR_INDEX) fehlermsg &= vbNewLine & " >> der Wert in der Indexdatei ist leer" - _NidxWert = Nothing + oResultNachindexierung = Nothing unvollstaendig = True - error_in_Indexierung = True + oUnexpectedError = True Else Dim _dokxml As WINDREAMLib.WMObject _dokxml = Nothing @@ -1056,14 +1059,14 @@ Public Class frmNIHauptseite _dokxml = _windreamNI.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument 'Überprüfen 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 Case 0 '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!") - SetErrorMeldung("Value '" & _NidxWert & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX) + _Logger.Warn("Der deskriptive Indexwert '" & oResultNachindexierung & "' verweist auf keinen Eintrag in der Datenbank!") + SetErrorMeldung("Value '" & oResultNachindexierung & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX) unvollstaendig = True - error_in_Indexierung = True + oUnexpectedError = True 'Überprüfung ob Wert dennoch indexiert werden soll?! @@ -1074,11 +1077,11 @@ Public Class frmNIHauptseite ReDim Preserve arrIndex(0) ReDim Preserve arrValue(0) 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) - _Logger.Debug("Der falsche OCR-Wert: '" & _NidxWert.ToString & "' wurde eingetragen") + _Logger.Debug("Der falsche OCR-Wert: '" & oResultNachindexierung.ToString & "' wurde eingetragen") 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 '1. aktives Dok File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) @@ -1087,14 +1090,14 @@ Public Class frmNIHauptseite 'Fehlermarkierung setzen Case 1 - _Logger.Debug("Der deskriptive Indexwert " & _NidxWert & " verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") - error_in_Indexierung = False + _Logger.Debug("Der deskriptive Indexwert " & oResultNachindexierung & " verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") + oUnexpectedError = False 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 - _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) - fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!" - error_in_Indexierung = True + fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & oResultNachindexierung & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!" + oUnexpectedError = True '1. aktives Dok File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) '2. Indexierungs-Datei @@ -1108,7 +1111,7 @@ Public Class frmNIHauptseite 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! #") Else - If _NidxWert = "" Then + If oResultNachindexierung = "" Then _Logger.Warn("# ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #") End If End If @@ -1117,11 +1120,11 @@ Public Class frmNIHauptseite Case "activedirectory" _Logger.Debug("Indexierung gegen ActiveDirectory") - _NidxWert = ClassActiveDirectory.GetAD_Attribut(selectArray(0), INDEX_SQL_BEFEHL.Spalte, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password) - If _NidxWert = ">1" Then + oResultNachindexierung = ClassActiveDirectory.GetAD_Attribut(selectArray(0), INDEX_SQL_BEFEHL.Spalte, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password) + 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") Else - _Logger.Debug("Gelesener Attribut-Wert: " & _NidxWert) + _Logger.Debug("Gelesener Attribut-Wert: " & oResultNachindexierung) End If @@ -1135,11 +1138,11 @@ Public Class frmNIHauptseite 'bis hier in _clsWorkfile integriert '###### '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, ' der in den windream-Index geschrieben werden kann - If _NidxWert IsNot Nothing And INDEX_SQL_BEFEHL.Index IsNot Nothing Then - result &= " - " & _NidxWert + If oResultNachindexierung IsNot Nothing And INDEX_SQL_BEFEHL.Index IsNot Nothing Then + result &= " - " & oResultNachindexierung _ergebnisSQL = True Try _Logger.Debug("Arraygößen werden angepasst:") @@ -1150,20 +1153,20 @@ Public Class frmNIHauptseite oNiArrayIndexe(verknüpfungZähler) = INDEX_SQL_BEFEHL.Index ' 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 oRow(0) = INDEX_SQL_BEFEHL.Index - oRow(1) = Convert.ToString(_NidxWert) + oRow(1) = Convert.ToString(oResultNachindexierung) myNIDatatable.Rows.Add(oRow) - _Logger.Debug("INDEXWERT: '" & Convert.ToString(_NidxWert) & "'") + _Logger.Debug("INDEXWERT: '" & Convert.ToString(oResultNachindexierung) & "'") verknüpfungZähler += 1 Catch ex As Exception result &= " (" & verknüpfungZähler & ") => " & ex.Message & vbNewLine End Try 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 ") 'Exit For End If @@ -1217,28 +1220,28 @@ Public Class frmNIHauptseite ' 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 '############################################################################################### '#### Nachindexierung ########################################################################## Dim sw As New ClassStopwatch("RunIndexing_Case1") 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 If msg <> "" Then _Logger.Info($"SWResult: {msg}") '#### 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!") End If '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 Me.aktivesProfil.finalerIndex <> "" And Not error_in_Indexierung And oNiArrayValues.Length >= 1 And oNiArrayValues(0) <> "" Then + If oNiArrayValues Is Nothing = False And Not oUnexpectedError Then + If Me.aktivesProfil.finalerIndex <> "" And Not oUnexpectedError And oNiArrayValues.Length >= 1 And oNiArrayValues(0) <> "" Then Me._windreamNI.SetfinalIndex(dokument, Me.aktivesProfil.finalerIndex, True) End If '###### 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 _Logger.Debug("Execute VB-Script after indexing......") Dim anweisung As String = Me.aktivesProfil.SQL_Anweisung.Replace("EXECUTEVB ", "") @@ -1277,7 +1280,7 @@ Public Class frmNIHauptseite IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen) Catch ex As Exception ' 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) End Try @@ -1373,7 +1376,7 @@ Public Class frmNIHauptseite IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen) Catch ex As Exception ' 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("Indexwert aus Windream: " & IndexwertAusWindream.ToString) _Logger.Warn("Fehler in Get Indexwert aus windream bei Spezifischem SQL: ") @@ -1411,7 +1414,7 @@ Public Class frmNIHauptseite End If If aktivesProfil.Ni_Art.ToLower = "xml" Then - If error_in_Indexierung = False Then + If oUnexpectedError = False Then Dim valid As Boolean Try 'Überprüfen ob Validierung auf False steht? @@ -1504,36 +1507,37 @@ Public Class frmNIHauptseite If msgindex <> "" Then _Logger.Info(($"SWResult: {msgindex}")) '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") - If My.Settings.vLogErrorsonly = False Then _Logger.Info("Move and Rename activated...!") _Logger.Debug("Move and Rename ist aktiviert") - Dim sw1 As New ClassStopwatch("dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)") - Dim _MOREDA = dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex) - Dim msg As String = sw1.Done - If msg <> "" Then _Logger.Info($"SWResult: {msg}") - Dim _MOREKD - If Me.aktivesProfil.MR_KDIndex <> "" Then - _MOREKD = dokument.GetVariableValue(Me.aktivesProfil.MR_KDIndex) - End If - If _MOREDA Is Nothing = False Then - If My.Settings.vLogErrorsonly = False Then _Logger.Info($"_MOREDA {_MOREDA} and _MOREKD {_MOREKD} ") - Dim result_MORE = _clsMoRe.RUN_MO_RE(dokument, "\\windream\objects" & dokument.aPath, _MOREDA, _MOREKD) - _Logger.Info(($"Result of Move and Rename: {result_MORE}")) - If result_MORE <> "False" Then - moved_Folder = CStr(result_MORE) - End If - 'If temp = False Then - ' If My.Settings.vNIMailsenden = True Then - ' email.Send_EMail("Fehler bei Move and Rename der Datei: " & dokument.aName.ToString & "
Fehler: Die Datei wurde indexiert aber nicht verschoben!") - ' End If - 'End If - End If + oUnexpectedError = FNMoveRename(dokument) + 'sd + 'Dim sw1 As New ClassStopwatch("dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)") + 'Dim _MOREDA = dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex) + 'Dim msg As String = sw1.Done + 'If msg <> "" Then _Logger.Info($"SWResult: {msg}") + 'Dim _MOREKD + 'If Me.aktivesProfil.MR_KDIndex <> "" Then + ' _MOREKD = dokument.GetVariableValue(Me.aktivesProfil.MR_KDIndex) + 'End If + 'If _MOREDA Is Nothing = False Then + ' If My.Settings.vLogErrorsonly = False Then _Logger.Info($"_MOREDA {_MOREDA} and _MOREKD {_MOREKD} ") + ' Dim result_MORE = _clsMoRe.RUN_MO_RE(dokument, "\\windream\objects" & dokument.aPath, _MOREDA, _MOREKD) + ' _Logger.Info(($"Result of Move and Rename: {result_MORE}")) + ' If result_MORE <> "False" Then + ' moved_Folder = CStr(result_MORE) + ' End If + ' 'If temp = False Then + ' ' If My.Settings.vNIMailsenden = True Then + ' ' email.Send_EMail("Fehler bei Move and Rename der Datei: " & dokument.aName.ToString & "
Fehler: Die Datei wurde indexiert aber nicht verschoben!") + ' ' End If + ' 'End If + 'End If Dim msg1 = swMoveandrename.Done 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) 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") End If @@ -1542,7 +1546,7 @@ Public Class frmNIHauptseite End If '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") 'Die Ordernindizes-Namen laden Dim Oindexe = _windream.GetIndicesByFoldertype(Me.aktivesProfil.OrdnerType, False) @@ -1560,7 +1564,7 @@ Public Class frmNIHauptseite If aktivesProfil.move2Folder <> "" Then 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") _Logger.Debug("Move 2 Folder ist aktiviert") Dim err As Boolean = Move2Folder(Me.aktivesDokument.aName, My.Settings.MRWD_Laufwerk & ":" & dokument.aPath) @@ -1574,7 +1578,7 @@ Public Class frmNIHauptseite '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 If moved_Folder = "" Then docpath = My.Settings.MRWD_Laufwerk & ":" & dokument.aPath @@ -1592,7 +1596,7 @@ Public Class frmNIHauptseite CURRENT_MOVE_FILEPATH = "" End If '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") Dim sw As New ClassStopwatch("AD-Rework") Nachbearbeitung_AD(dokument) @@ -1600,7 +1604,7 @@ Public Class frmNIHauptseite If msg <> "" Then _Logger.Info($"SWResult: {msg}") End If - error_in_Indexierung = False + oUnexpectedError = False Catch ex As Exception _Logger.Error(ex) If My.Settings.vNIMailsenden = True Then @@ -1608,6 +1612,241 @@ Public Class frmNIHauptseite End If End Try 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) Try 'Die Ordernindizes-Namen laden @@ -2086,6 +2325,17 @@ Public Class frmNIHauptseite Return 0 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 Catch ex As Exception _Logger.Error(ex) @@ -2444,6 +2694,8 @@ Public Class frmNIHauptseite Return False End Try End Function + + Private Function CrFolderForIndex(ByVal fullfilename As String) Try diff --git a/ToolCollection/frmNIMoveRename.Designer.vb b/ToolCollection/frmNIMoveRename.Designer.vb new file mode 100644 index 0000000..e4d7a1c --- /dev/null +++ b/ToolCollection/frmNIMoveRename.Designer.vb @@ -0,0 +1,362 @@ + _ +Partial Class frmNIMoveRename + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/ToolCollection/frmNIMoveRename.resx b/ToolCollection/frmNIMoveRename.resx new file mode 100644 index 0000000..db82105 --- /dev/null +++ b/ToolCollection/frmNIMoveRename.resx @@ -0,0 +1,920 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 134, 17 + + + 241, 17 + + + 351, 17 + + + 602, 17 + + + 847, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/ToolCollection/frmNIMoveRename.vb b/ToolCollection/frmNIMoveRename.vb new file mode 100644 index 0000000..452c9b0 --- /dev/null +++ b/ToolCollection/frmNIMoveRename.vb @@ -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 \ No newline at end of file diff --git a/ToolCollection/frmNIMoveRenameNamenkonvention.designer.vb b/ToolCollection/frmNIMoveRenameNamenkonvention.designer.vb new file mode 100644 index 0000000..6f3cbfa --- /dev/null +++ b/ToolCollection/frmNIMoveRenameNamenkonvention.designer.vb @@ -0,0 +1,195 @@ + +Partial Class frmNIMoveRenameNamenkonvention + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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 diff --git a/ToolCollection/frmNIMoveRenameNamenkonvention.en-US.resx b/ToolCollection/frmNIMoveRenameNamenkonvention.en-US.resx new file mode 100644 index 0000000..c4cc551 --- /dev/null +++ b/ToolCollection/frmNIMoveRenameNamenkonvention.en-US.resx @@ -0,0 +1,252 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + 431, 34 + + + Define the Nameconvention for the selected Documenttype. +You can assemble the filename from the Indicies and Textpatterns below. + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + 104, 17 + + + Automatic Index: + + + 89, 17 + + + Manual Index: + + + Indicies: + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + 6, 139 + + + Add original filename + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + 6, 91 + + + Add Versionseperator: + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + 163, 29 + + + Add Fileseperator: + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + Add Version: + + + Variables: + + + Save + + + Cancel + + + 83, 17 + + + Date Format: + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + 41, 17 + + + Misc.: + + + Nameconvention Wizard: + + \ No newline at end of file diff --git a/ToolCollection/frmNIMoveRenameNamenkonvention.resx b/ToolCollection/frmNIMoveRenameNamenkonvention.resx new file mode 100644 index 0000000..540d607 --- /dev/null +++ b/ToolCollection/frmNIMoveRenameNamenkonvention.resx @@ -0,0 +1,647 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + True + + + + 9, 9 + + + 473, 51 + + + 0 + + + Definieren Sie hier die Namenskonvention. +Sie haben die Möglichkeit den Datei-/Ordnernamen aus den unten aufgeführten +Indizes und Textbausteinen zusammenzustellen. + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 11 + + + 12, 74 + + + 488, 25 + + + 1 + + + txtnamenKonv + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 10 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + 190, 135 + + + 30, 23 + + + 4 + + + btnAddIndexM + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + 12, 135 + + + 172, 25 + + + 2 + + + cmbIndexe + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + + + True + + + 9, 115 + + + 69, 17 + + + 0 + + + IndexWert: + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + MiddleLeft + + + 175, 70 + + + 163, 43 + + + 8 + + + OriginalName + + + MiddleRight + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 0 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + MiddleLeft + + + 175, 21 + + + 163, 43 + + + 7 + + + Versionstrennzeichen einfügen + + + MiddleRight + + + btnVersionTZ + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 1 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + MiddleLeft + + + 6, 70 + + + 163, 43 + + + 6 + + + Dateitrennzeichen einfügen + + + MiddleRight + + + btnTrennzeichen + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 2 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + MiddleLeft + + + 6, 21 + + + 163, 43 + + + 5 + + + Versionstag einfügen + + + MiddleRight + + + btnVersion + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 3 + + + 255, 114 + + + 345, 122 + + + 3 + + + Variablen: + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 9 + + + 565, 73 + + + 28, 25 + + + 4 + + + btndelete + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 8 + + + MiddleLeft + + + 12, 259 + + + 172, 36 + + + 5 + + + Übernehmen + + + MiddleRight + + + btnOK + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 7 + + + MiddleLeft + + + 514, 259 + + + 86, 36 + + + 6 + + + Abbruch + + + MiddleRight + + + btnclose + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 6 + + + Segoe UI, 9pt + + + YY_MM_DD + + + YYYY_MM_DD + + + DD_MM_YY + + + DD_MM_YYYY + + + YYMMDD + + + YYYYMMDD + + + DDMMYY + + + DDMMYYYY + + + YYYY + + + MM + + + DD + + + 12, 183 + + + 172, 23 + + + 8 + + + cmbDate + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 4 + + + True + + + 9, 163 + + + 99, 17 + + + 7 + + + Datum-Struktur: + + + Label20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 5 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + 190, 181 + + + 30, 23 + + + 9 + + + btnAddDate + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + + + True + + + 7, 17 + + + 606, 303 + + + Segoe UI, 9.75pt + + + + 3, 4, 3, 4 + + + CenterScreen + + + Assistent zur Namenskonvention: + + + frmNIMoveRenameNamenkonvention + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ToolCollection/frmNIMoveRenameNamenkonvention.vb b/ToolCollection/frmNIMoveRenameNamenkonvention.vb new file mode 100644 index 0000000..96d6e72 --- /dev/null +++ b/ToolCollection/frmNIMoveRenameNamenkonvention.vb @@ -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 \ No newline at end of file diff --git a/ToolCollection/frmNIProfileigenschaften.Designer.vb b/ToolCollection/frmNIProfileigenschaften.Designer.vb index 461f01e..04bdcdc 100644 --- a/ToolCollection/frmNIProfileigenschaften.Designer.vb +++ b/ToolCollection/frmNIProfileigenschaften.Designer.vb @@ -23,7 +23,6 @@ Partial Class frmNIProfileigenschaften _ Private Sub InitializeComponent() 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 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") @@ -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 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften)) 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.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.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() Me.dlgMdbLocation = New System.Windows.Forms.OpenFileDialog() Me.gbxDatenbank = New System.Windows.Forms.GroupBox() Me.chkOR_ohne_TNS = 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.btnMdbLöschen = New System.Windows.Forms.Button() Me.btnMdbLocation = New System.Windows.Forms.Button() Me.txtDataSource1 = New System.Windows.Forms.TextBox() Me.lblDSN = New System.Windows.Forms.Label() @@ -70,7 +61,6 @@ Partial Class frmNIProfileigenschaften Me.rbxls = New System.Windows.Forms.RadioButton() Me.rbxml = New System.Windows.Forms.RadioButton() Me.btnVerknüpfungen = New System.Windows.Forms.Button() - Me.btnopenSuche = New System.Windows.Forms.Button() Me.txtWindreamsuche = New System.Windows.Forms.TextBox() Me.btnWindreamsuche = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() @@ -94,7 +84,6 @@ Partial Class frmNIProfileigenschaften Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.grbxLDAP = New System.Windows.Forms.GroupBox() - Me.btnTestLDAP = New System.Windows.Forms.Button() Me.txtLDAP_PW = New System.Windows.Forms.TextBox() Me.lblLDAP_PW = New System.Windows.Forms.Label() Me.txtLDAP_User = New System.Windows.Forms.TextBox() @@ -112,19 +101,12 @@ Partial Class frmNIProfileigenschaften Me.chkbxAD = New System.Windows.Forms.CheckBox() Me.TabPage3 = New System.Windows.Forms.TabPage() 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.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.Label25 = New System.Windows.Forms.Label() - Me.btncrFolder_delete = New System.Windows.Forms.Button() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.cmbCrFolderDate = New System.Windows.Forms.ComboBox() Me.Label20 = New System.Windows.Forms.Label() - Me.btnaddcrFolderParameter = New System.Windows.Forms.Button() Me.txtcrFoldermanuell = New System.Windows.Forms.TextBox() Me.Label19 = 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.Label16 = New System.Windows.Forms.Label() 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.gbxDatenbank.SuspendLayout() Me.gbxDatei.SuspendLayout() @@ -185,41 +181,6 @@ Partial Class frmNIProfileigenschaften Me.StatusStrip1.TabIndex = 23 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 ' 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.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 ' 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.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 ' Me.lblInitialCatalog.AutoSize = True @@ -366,17 +274,6 @@ Partial Class frmNIProfileigenschaften Me.lblInitialCatalog.Text = "InitialCatalog*:" 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 ' Me.btnMdbLocation.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None @@ -569,21 +466,6 @@ Partial Class frmNIProfileigenschaften Me.btnVerknüpfungen.UseVisualStyleBackColor = True 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 ' Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info @@ -827,18 +709,6 @@ Partial Class frmNIProfileigenschaften Me.grbxLDAP.Text = "Indexierung gegen Active Directory:" 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 ' 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 ' - Me.grpbxMORE.Controls.Add(Me.cmbMoReKundenindex) - Me.grpbxMORE.Controls.Add(Me.cmbMOREDokumentart) + Me.grpbxMORE.Controls.Add(Me.Button1) 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.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) @@ -1034,75 +900,17 @@ Partial Class frmNIProfileigenschaften Me.grpbxMORE.TabStop = False 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 ' 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.Location = New System.Drawing.Point(9, 21) + Me.Label21.Location = New System.Drawing.Point(6, 19) 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.Text = "Bei Aktivierung dieser Funktion wird nach " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Indexierung das Modul 'Move and Renam" & - "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" & - "t und in den Ordnerbaum verschoben" - ' - '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 + Me.Label21.Text = "Bei Aktivierung dieser Funktion wird nach Indexierung das Modul 'Move and Rename'" & + " ausgeführt. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die Datei wird anhand der Namenkonvention und Ordnerkonfiguration" & + " verarbeitet." ' 'GroupBox4 ' @@ -1133,15 +941,6 @@ Partial Class frmNIProfileigenschaften Me.Label25.TabIndex = 10 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 ' Me.GroupBox5.Controls.Add(Me.cmbCrFolderDate) @@ -1177,19 +976,6 @@ Partial Class frmNIProfileigenschaften Me.Label20.TabIndex = 5 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 ' 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.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 ' 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 grpbxMORE As System.Windows.Forms.GroupBox 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 cmbOrdnertyp As System.Windows.Forms.ComboBox 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 Label20 As System.Windows.Forms.Label Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Button1 As Button End Class diff --git a/ToolCollection/frmNIProfileigenschaften.resx b/ToolCollection/frmNIProfileigenschaften.resx index dc9476a..e0a1527 100644 --- a/ToolCollection/frmNIProfileigenschaften.resx +++ b/ToolCollection/frmNIProfileigenschaften.resx @@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK - CQAAAk1TRnQBSQFMAgEBAgEAAWgBAAFoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CQAAAk1TRnQBSQFMAgEBAgEAAYgBAAGIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA diff --git a/ToolCollection/frmNIProfileigenschaften.vb b/ToolCollection/frmNIProfileigenschaften.vb index 426e218..cfcf025 100644 --- a/ToolCollection/frmNIProfileigenschaften.vb +++ b/ToolCollection/frmNIProfileigenschaften.vb @@ -1,6 +1,8 @@ Imports System.IO Imports Oracle.ManagedDataAccess.Client Imports DigitalData.Modules.Logging +Imports System.Data.Odbc + Public Class frmNIProfileigenschaften Public Shared _windream As ClassWindream_allgemein Private _MyLogger As LogConfig @@ -14,6 +16,7 @@ Public Class frmNIProfileigenschaften Private _flagIgnoreVisibilityChanged As Boolean = False Private Shared _Instance As frmNIProfileigenschaften = Nothing Private licenseManager As ClassLicenseManager = Nothing + Private INDEX_LIST As New List(Of String) Public Shared Function Instance() As frmNIProfileigenschaften If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then _Instance = New frmNIProfileigenschaften @@ -262,21 +265,23 @@ Public Class frmNIProfileigenschaften Me.cmbIndexValidierung.Items.Clear() Me.cmbIndexFehler.Items.Clear() Me.cmbCrFolderIndex.Items.Clear() - cmbMOREDokumentart.Items.Clear() - cmbMoReKundenindex.Items.Clear() + 'cmbMOREDokumentart.Items.Clear() + 'cmbMoReKundenindex.Items.Clear() 'Dim indexe1 = _windream.GetIndicesByObjecttype(Me._selectedProfile.Dokumenttyp.aName) '_windream.GetIndices(Me._selectedProfile.Dokumenttyp.aName) + + Dim indexe = _windream.GetIndicesByObjecttype(Me._selectedProfile.Dokumenttyp.aName, True, "NI") If indexe IsNot Nothing Then Me.cmbIndexFehler.Items.Add("") Me.cmbIndexValidierung.Items.Add("") - cmbMOREDokumentart.Items.Add("") - cmbMoReKundenindex.Items.Add("") - cmbMoReKundenindex.Items.Add("Standard-VZ") + 'cmbMOREDokumentart.Items.Add("") + 'cmbMoReKundenindex.Items.Add("") + 'cmbMoReKundenindex.Items.Add("Standard-VZ") For Each index As String In indexe Select Case _windream.GetTypeOfIndexAsIntByName(index) @@ -285,16 +290,19 @@ Public Class frmNIProfileigenschaften Me.cmbIndexFehler.Items.Add(index) Case 1 Me.cmbCrFolderIndex.Items.Add(index) - cmbMOREDokumentart.Items.Add(index) - cmbMoReKundenindex.Items.Add(index) + INDEX_LIST.Add(index) + 'cmbMOREDokumentart.Items.Add(index) + 'cmbMoReKundenindex.Items.Add(index) Case 2 Me.cmbCrFolderIndex.Items.Add(index) - cmbMOREDokumentart.Items.Add(index) - cmbMoReKundenindex.Items.Add(index) + INDEX_LIST.Add(index) + 'cmbMOREDokumentart.Items.Add(index) + 'cmbMoReKundenindex.Items.Add(index) Case 5 Me.cmbCrFolderIndex.Items.Add(index) - cmbMOREDokumentart.Items.Add(index) - cmbMoReKundenindex.Items.Add(index) + INDEX_LIST.Add(index) + 'cmbMOREDokumentart.Items.Add(index) + 'cmbMoReKundenindex.Items.Add(index) 'Case Else 'MsgBox(_windream.GetTypeOfIndexAsIntByName(index) & vbNewLine & index) @@ -309,16 +317,16 @@ Public Class frmNIProfileigenschaften 'Me.cmbCrFolderIndex.SelectedValue = 0 End If - If Me._selectedProfile.MR_DAIndex <> "" Then - Me.cmbMOREDokumentart.SelectedIndex = Me.cmbMOREDokumentart.FindStringExact(Me._selectedProfile.MR_DAIndex) - Else - Me.cmbMOREDokumentart.SelectedIndex = 0 - End If - If Me._selectedProfile.MR_KDIndex <> "" Then - Me.cmbMoReKundenindex.SelectedIndex = Me.cmbMoReKundenindex.FindStringExact(Me._selectedProfile.MR_KDIndex) - Else - Me.cmbMoReKundenindex.SelectedIndex = 0 - End If + 'If Me._selectedProfile.MR_DAIndex <> "" Then + ' Me.cmbMOREDokumentart.SelectedIndex = Me.cmbMOREDokumentart.FindStringExact(Me._selectedProfile.MR_DAIndex) + 'Else + ' Me.cmbMOREDokumentart.SelectedIndex = 0 + 'End If + 'If Me._selectedProfile.MR_KDIndex <> "" Then + ' Me.cmbMoReKundenindex.SelectedIndex = Me.cmbMoReKundenindex.FindStringExact(Me._selectedProfile.MR_KDIndex) + 'Else + ' Me.cmbMoReKundenindex.SelectedIndex = 0 + 'End If If Me._selectedProfile.IndexValidation <> "" Then '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 If Me._selectedProfile IsNot Nothing Then Me._selectedProfile.Profilname = Me.txtProfilname.Text + CURRENT_PROFILENAME = Me._selectedProfile.Profilname If Not Me.txtProfilname.Text = Me._selectedProfile.OriginalProfilname Then Me.btnSpeichern.Enabled = True Else @@ -607,7 +616,7 @@ Public Class frmNIProfileigenschaften ' den Speichern-Button deaktivieren Me.btnSpeichern.Enabled = False 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") End If ' 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 MsgBox("Fehler in Löschen Profil:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + End Sub 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 Dim conn As New OracleConnectionStringBuilder 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 & ";" Else conn.DataSource = txtDataSource2.Text @@ -1018,6 +1027,22 @@ Public Class frmNIProfileigenschaften Catch ex As Exception MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:") 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 MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:") End Select @@ -1026,7 +1051,7 @@ Public Class frmNIProfileigenschaften Catch ex As Exception MsgBox("Fehler beim Verbindungstest:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + Cursor = Cursors.Default End Sub @@ -1189,7 +1214,7 @@ Public Class frmNIProfileigenschaften Private Sub chkcrfold_move_CheckedChanged(sender As Object, e As EventArgs) Handles chkcrfold_move.CheckedChanged 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 Me.btnSpeichern.Enabled = True Else @@ -1243,39 +1268,39 @@ Public Class frmNIProfileigenschaften End If End Sub - Private Sub cmbMoReKundenindex_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cmbMoReKundenindex.SelectedIndexChanged - If Me.cmbMoReKundenindex.SelectedIndex <> -1 Then - If Me._selectedProfile IsNot Nothing Then - Me._selectedProfile.MR_KDIndex = cmbMoReKundenindex.SelectedItem - If Not Me._selectedProfile.MR_KDIndex = Me._selectedProfile.OriginalMR_KDIndex Then - If cmbMoReKundenindex.Text = "Standard-VZ" Then - Me.lblHinweisKundenindex.Text = "Dokumente werden im allgemeinen Kundenverzeichnis abgelegt!" - Else - Me.lblHinweisKundenindex.Text = "Dokumente werden im spezifischen Kundenordner abgelegt!" - End If - Me.btnSpeichern.Enabled = True - Else - Me.btnSpeichern.Enabled = False - End If - End If - End If - End Sub - - Private Sub cmbMOREDokumentart_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cmbMOREDokumentart.SelectedIndexChanged - If Me.cmbMOREDokumentart.SelectedIndex <> -1 Then - If txtMovetoFolder.Text <> "" Then - MsgBox("Achtung Sie haben Move2Folder aktiviert! Die Kombination mit Move and Rename ist nicht zulässig!", MsgBoxStyle.Exclamation) - End If - If Me._selectedProfile IsNot Nothing Then - Me._selectedProfile.MR_DAIndex = cmbMOREDokumentart.SelectedItem - If Not Me._selectedProfile.MR_DAIndex = Me._selectedProfile.OriginalMR_DAIndex Then - Me.btnSpeichern.Enabled = True - Else - Me.btnSpeichern.Enabled = False - End If - End If - End If - End Sub + 'Private Sub cmbMoReKundenindex_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cmbMoReKundenindex.SelectedIndexChanged + ' If Me.cmbMoReKundenindex.SelectedIndex <> -1 Then + ' If Me._selectedProfile IsNot Nothing Then + ' Me._selectedProfile.MR_KDIndex = cmbMoReKundenindex.SelectedItem + ' If Not Me._selectedProfile.MR_KDIndex = Me._selectedProfile.OriginalMR_KDIndex Then + ' If cmbMoReKundenindex.Text = "Standard-VZ" Then + ' Me.lblHinweisKundenindex.Text = "Dokumente werden im allgemeinen Kundenverzeichnis abgelegt!" + ' Else + ' Me.lblHinweisKundenindex.Text = "Dokumente werden im spezifischen Kundenordner abgelegt!" + ' End If + ' Me.btnSpeichern.Enabled = True + ' Else + ' Me.btnSpeichern.Enabled = False + ' End If + ' End If + ' End If + 'End Sub + + 'Private Sub cmbMOREDokumentart_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cmbMOREDokumentart.SelectedIndexChanged + ' If Me.cmbMOREDokumentart.SelectedIndex <> -1 Then + ' If txtMovetoFolder.Text <> "" Then + ' MsgBox("Achtung Sie haben Move2Folder aktiviert! Die Kombination mit Move and Rename ist nicht zulässig!", MsgBoxStyle.Exclamation) + ' End If + ' If Me._selectedProfile IsNot Nothing Then + ' Me._selectedProfile.MR_DAIndex = cmbMOREDokumentart.SelectedItem + ' If Not Me._selectedProfile.MR_DAIndex = Me._selectedProfile.OriginalMR_DAIndex Then + ' Me.btnSpeichern.Enabled = True + ' Else + ' Me.btnSpeichern.Enabled = False + ' End If + ' End If + ' End If + 'End Sub Private Sub rbxls_CheckedChanged(sender As Object, e As EventArgs) Handles rbxls.CheckedChanged 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 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 \ No newline at end of file diff --git a/ToolCollection/frmNIProfilhinzufuegen.vb b/ToolCollection/frmNIProfilhinzufuegen.vb index 1d3b549..045fafb 100644 --- a/ToolCollection/frmNIProfilhinzufuegen.vb +++ b/ToolCollection/frmNIProfilhinzufuegen.vb @@ -1,4 +1,5 @@ -Imports Oracle.ManagedDataAccess.Client +Imports System.Data.Odbc +Imports Oracle.ManagedDataAccess.Client Public Class frmNIProfilhinzufuegen Private _oDokumentTypen As WINDREAMLib.WMObjects Public Shared _windream As ClassWindream_allgemein @@ -39,7 +40,7 @@ Public Class frmNIProfilhinzufuegen If Me.rbDatenbank.Checked = True Then ' 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 Dim initialCatalog As String If Me.cmbDbArt.SelectedItem = "MS-SQL" Then @@ -86,8 +87,8 @@ Public Class frmNIProfilhinzufuegen End If Else ' sonst eine Fehlermeldung ausgeben - 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 & "'" & _ + 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 & "'" & " auf dem windream-Server '" & _windream.GetCurrentServer & "' nicht gefunden werden kann.", MsgBoxStyle.Exclamation, "Ungültiger Objekttyp") End If @@ -97,7 +98,7 @@ Public Class frmNIProfilhinzufuegen End If ElseIf rbDatei.Checked = True Then ' 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 If Me.rbxls.Checked Or Me.rbxml.Checked Then ' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist @@ -122,8 +123,8 @@ Public Class frmNIProfilhinzufuegen End If Else ' sonst eine Fehlermeldung ausgeben - 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 & "'" & _ + 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 & "'" & " auf dem windream-Server '" & _windream.GetCurrentServer & "' nicht gefunden werden kann.", MsgBoxStyle.Exclamation, "Ungültiger Objekttyp") End If Else @@ -174,7 +175,7 @@ Public Class frmNIProfilhinzufuegen Else If chkbxGetOrdnerRechte.Checked 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) ' und das Formular schließen Me.Close() @@ -340,7 +341,7 @@ Public Class frmNIProfilhinzufuegen Dim conn As New OracleConnectionStringBuilder 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 & ";" Else conn.DataSource = txtInitialCatalog.Text @@ -360,9 +361,24 @@ Public Class frmNIProfilhinzufuegen Catch ex As Exception MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:") 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 - MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:") + MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:") End Select End If @@ -559,7 +575,7 @@ Public Class frmNIProfilhinzufuegen Me.grbxFT.Dock = DockStyle.Bottom Me.grbxFT.Visible = False End If - + End Sub Private Sub CheckBoxwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxwin_aut.CheckedChanged If CheckBoxwin_aut.Checked Then diff --git a/ToolCollection/frmNIVerknuepfungen.Designer.vb b/ToolCollection/frmNIVerknuepfungen.Designer.vb index 485e010..72bad25 100644 --- a/ToolCollection/frmNIVerknuepfungen.Designer.vb +++ b/ToolCollection/frmNIVerknuepfungen.Designer.vb @@ -168,6 +168,8 @@ Partial Class frmNIVerknuepfungen Me.rbvkt_add = New System.Windows.Forms.RadioButton() Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton() 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.GroupBox1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -1802,6 +1804,8 @@ Partial Class frmNIVerknuepfungen ' 'pnlZielQuelle ' + Me.pnlZielQuelle.Controls.Add(Me.rbFunctionsTb) + Me.pnlZielQuelle.Controls.Add(Me.rbFunctionsSc) Me.pnlZielQuelle.Controls.Add(Me.lblsave) Me.pnlZielQuelle.Controls.Add(Me.chkvkt_Dublette) Me.pnlZielQuelle.Controls.Add(Me.rbvkt_add) @@ -1906,6 +1910,28 @@ Partial Class frmNIVerknuepfungen Me.SplitContainer1.SplitterDistance = 521 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 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2101,4 +2127,6 @@ Partial Class frmNIVerknuepfungen Friend WithEvents lblsaveSQLAnweisung As Label Friend WithEvents Label1 As Label Friend WithEvents Button5 As Button + Friend WithEvents rbFunctionsTb As RadioButton + Friend WithEvents rbFunctionsSc As RadioButton End Class diff --git a/ToolCollection/frmNIVerknuepfungen.vb b/ToolCollection/frmNIVerknuepfungen.vb index cd2c7a3..7285d88 100644 --- a/ToolCollection/frmNIVerknuepfungen.vb +++ b/ToolCollection/frmNIVerknuepfungen.vb @@ -519,10 +519,18 @@ Public Class frmNIVerknuepfungen columns = Me.GetOracleColumnsByTable(words(0)) ElseIf Me._selectedProfil.DbArt = "MS-SQL" Then ' 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 ' alle Spalten aus Oracle auslesen - columns = Me.GetOdbcColumnsByTable(words(1)) + columns = Me.GetOdbcColumnsByTable(words(0)) ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then ' alle Spalten aus Oracle auslesen columns = Me.GetOleColumnsByTable(words(1)) @@ -764,8 +772,76 @@ Public Class frmNIVerknuepfungen Return Nothing End Try 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 + ''' ''' Liest alle Spalten eines Datenbankviews oder einer Tabelle aus ''' @@ -1660,10 +1736,15 @@ Public Class frmNIVerknuepfungen columns = Me.GetOracleColumnsByTable(words(0)) ElseIf Me._selectedProfil.DbArt = "MS-SQL" Then ' 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 ' alle Spalten über ODBC auslesen - columns = Me.GetOdbcColumnsByTable(words(1)) + columns = Me.GetOdbcColumnsByTable(words(0)) ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then ' alle Spalten aus Access-Tabelle auslesen 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:") 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 Me.txtTestwert_checkindex.BackColor = Drawing.Color.White @@ -3452,4 +3551,38 @@ Public Class frmNIVerknuepfungen Me.lblsaveSQLAnweisung.Text = "" End If 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 \ No newline at end of file