diff --git a/Global_Indexer/AboutBox1.Designer.vb b/Global_Indexer/AboutBox1.Designer.vb
index 0c7284d..1d918d3 100644
--- a/Global_Indexer/AboutBox1.Designer.vb
+++ b/Global_Indexer/AboutBox1.Designer.vb
@@ -97,10 +97,10 @@ Partial Class AboutBox1
Me.LinkLabel1.AutoSize = True
Me.LinkLabel1.Location = New System.Drawing.Point(281, 200)
Me.LinkLabel1.Name = "LinkLabel1"
- Me.LinkLabel1.Size = New System.Drawing.Size(93, 13)
+ Me.LinkLabel1.Size = New System.Drawing.Size(127, 13)
Me.LinkLabel1.TabIndex = 6
Me.LinkLabel1.TabStop = True
- Me.LinkLabel1.Text = "www.didalog.de"
+ Me.LinkLabel1.Text = "www.digitaldata.works"
'
'AboutBox1
'
diff --git a/Global_Indexer/AboutBox1.vb b/Global_Indexer/AboutBox1.vb
index c436447..fa504e4 100644
--- a/Global_Indexer/AboutBox1.vb
+++ b/Global_Indexer/AboutBox1.vb
@@ -12,16 +12,13 @@
If USER_LANGUAGE = "de-DE" Then
Me.Text = String.Format("Information zu: {0}", ApplicationTitle)
Else
- Me.Text = String.Format("Informations about: {0}", ApplicationTitle)
+ Me.Text = String.Format("Information about: {0}", ApplicationTitle)
End If
- ' Initialisieren Sie den gesamten Text, der im Infofeld angezeigt wird.
- ' TODO: Die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die
- ' Projekteigenschaften (im Menü "Projekt") anpassen.
lblProduktname.Text = My.Application.Info.ProductName
- Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
- Me.lblCompanyName.Text = My.Application.Info.CompanyName
- Me.txtDescription.Text = My.Application.Info.Description
+ lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
+ lblCompanyName.Text = My.Application.Info.CompanyName
+ txtDescription.Text = My.Application.Info.Description
End Sub
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
@@ -33,6 +30,6 @@
' Specify that the link was visited.
Me.LinkLabel1.LinkVisited = True
' Navigate to a URL.
- System.Diagnostics.Process.Start("http://www.didalog.de")
+ System.Diagnostics.Process.Start("https://digitaldata.works")
End Sub
End Class
diff --git a/Global_Indexer/App.config b/Global_Indexer/App.config
index 1941d11..8a2374b 100644
--- a/Global_Indexer/App.config
+++ b/Global_Indexer/App.config
@@ -1,54 +1,13 @@
-
-
-
-
-
-
-
-
-
- 526
-
-
- True
-
-
- True
-
-
- False
-
-
- False
-
-
- False
-
-
-
-
-
- myFilename.pdf
-
-
-
-
-
-
- DigitalData\windream_CLIENT_WMCC_Neustart
-
-
-
diff --git a/Global_Indexer/ClassConfig.vb b/Global_Indexer/ClassConfig.vb
index a40be8e..4295520 100644
--- a/Global_Indexer/ClassConfig.vb
+++ b/Global_Indexer/ClassConfig.vb
@@ -8,10 +8,14 @@ Public Class ClassConfig
Public Property FolderWatchStarted As Boolean = False
Public Property FolderWatchScanStarted As Boolean = False
- ' PDF Viewer Settings
+ ' Index Form Settings
Public Property FilePreview As Boolean = True
+ Public Property SplitterDistanceViewer As Integer = 500
+ Public Property ProfilePreselection As Boolean = False
+ Public Property ShowIndexResult As Boolean = True
+ Public Property DeleteOriginalFile As Boolean = False
' Misc Settings
- Public Property DeleteOriginalFile As Boolean = False
Public Property LogErrorsOnly As Boolean = True
+ Public Property WindreamSearchMaximized As Boolean = False
End Class
diff --git a/Global_Indexer/ClassControls.vb b/Global_Indexer/ClassControls.vb
index 4a89b42..b93dc23 100644
--- a/Global_Indexer/ClassControls.vb
+++ b/Global_Indexer/ClassControls.vb
@@ -48,7 +48,8 @@ Public Class ClassControls
Return chk
Catch ex As Exception
- ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)
+ LOGGER.Info("Unhandled Exception in AddCheckBox: " & ex.Message)
+ LOGGER.Error(ex.message)
Return Nothing
End Try
End Function
@@ -74,21 +75,44 @@ Public Class ClassControls
}
}
+ If Not String.IsNullOrEmpty(Vorgabe) Then
+ Dim oDefaultValues As New List(Of String)
+
+ If Vorgabe.Contains(",") Then
+ oDefaultValues = Vorgabe.
+ Split(",").ToList().
+ Select(Function(item) item.Trim()).
+ ToList()
+ Else
+ oDefaultValues = Vorgabe.
+ Split(ClassConstants.VECTORSEPARATOR).ToList().
+ Select(Function(item) item.Trim()).
+ ToList()
+ End If
+ oControl.SelectedValues = oDefaultValues
+ End If
+
AddHandler oControl.SelectedValuesChanged, AddressOf Lookup_SelectedValuesChanged
oConnectionString = ClassFormFunctions.GetConnectionString(conid)
+
If oConnectionString IsNot Nothing Then
+ LOGGER.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
+
If ClassPatterns.HasComplexPatterns(oSql) Then
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
Else
Dim oDatatable = ClassDatabase.Return_Datatable_Combined(oSql, oConnectionString, False)
oControl.DataSource = oDatatable
End If
+ Else
+ LOGGER.Warn("Connection String for control [{0}] is empty!", oControl.Name)
End If
Return oControl
Catch ex As Exception
- ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+ LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+ LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
Return Nothing
End Try
@@ -265,20 +289,21 @@ Public Class ClassControls
Next
End If
Catch ex As Exception
- ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
+ LOGGER.Info(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
+ LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
End Try
End Sub
Public Function AddTextBox(indexname As String, y As Integer, text As String, DataType As String) As TextBox
- Dim txt As New TextBox
- txt.Name = "txt" & indexname
-
- txt.Size = New Size(260, 27)
- txt.Location = New Point(11, y)
- txt.Tag = New ControlMeta() With {
- .IndexName = indexname,
- .IndexType = DataType
+ Dim txt As New TextBox With {
+ .Name = "txt" & indexname,
+ .Size = New Size(260, 27),
+ .Location = New Point(11, y),
+ .Tag = New ControlMeta() With {
+ .IndexName = indexname,
+ .IndexType = DataType
+ }
}
If text <> "" Then
@@ -327,6 +352,27 @@ Public Class ClassControls
End If
End Sub
+
+ Public Function AddDateTimePicker(indexname As String, y As Integer, DataType As String)
+ Dim dtp As New DateTimePicker With {
+ .Name = "dtp" & indexname,
+ .Format = DateTimePickerFormat.Short,
+ .Size = New Size(133, 27),
+ .Location = New Point(11, y),
+ .Tag = New ControlMeta() With {
+ .IndexName = indexname,
+ .IndexType = DataType
+ }
+ }
+
+ AddHandler dtp.ValueChanged, AddressOf OndtpChanged
+
+ Return dtp
+ End Function
+ Sub OndtpChanged()
+ 'offen was hier zu tun ist
+ End Sub
+
Private Sub PrepareDependingControl(Control As Control)
If TypeOf Control Is Label Then
Exit Sub
@@ -339,6 +385,8 @@ Public Class ClassControls
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
If Not IsNothing(oDatatable) Then
+ LOGGER.Debug("Found [{0}] depending controls for [{1}]", oDatatable.Rows.Count, Control.Name)
+
For Each oRow As DataRow In oDatatable.Rows
Dim oControlName As String = NotNull(oRow.Item("NAME"), "")
Dim oConnectionId As Integer = NotNull(oRow.Item("CONNECTION_ID"), -1)
@@ -353,9 +401,11 @@ Public Class ClassControls
oControlSql = ClassPatterns.ReplaceInternalValues(oControlSql)
oControlSql = ClassPatterns.ReplaceControlValues(oControlSql, Panel)
+
+ LOGGER.Debug("SQL After Preparing: [{0}]", oControlSql)
+ LOGGER.Debug("Setting new value for [{0}]", oControlName)
SetDependingControlResult(oControlName, oControlSql, oConnectionId)
Next
-
End If
Catch ex As Exception
LOGGER.Error(ex)
@@ -364,6 +414,11 @@ Public Class ClassControls
Private Sub SetDependingControlResult(IndexName As String, SqlCommand As String, SqlConnectionId As Integer)
Try
+ If SqlCommand Is Nothing OrElse SqlCommand = String.Empty Then
+ LOGGER.Warn("New Value for Index [{0}] could not be set. Supplied SQL is empty.")
+ Exit Sub
+ End If
+
Dim oConnectionString = ClassFormFunctions.GetConnectionString(SqlConnectionId)
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SqlCommand, oConnectionString)
Dim oFoundControl As Control = Nothing
@@ -382,14 +437,31 @@ Public Class ClassControls
End If
Next
- If oFoundControl IsNot Nothing Then
- If TypeOf oFoundControl Is TextBox Then
- DirectCast(oFoundControl, TextBox).Text = oDatatable.Rows.Item(0).Item(0)
- ElseIf TypeOf oFoundControl Is LookupControl2 Then
- DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
- ElseIf TypeOf oFoundControl Is ComboBox Then
- DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
+ If oFoundControl Is Nothing Then
+ LOGGER.Warn("Depending Control for Index [{0}] not found!", IndexName)
+ End If
+
+ If oDatatable Is Nothing Then
+ LOGGER.Warn("Error in SQL Command: {0}", SqlCommand)
+ End If
+
+ If TypeOf oFoundControl Is TextBox Then
+ If oDatatable.Rows.Count > 0 Then
+ Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
+
+ If oFirstRow.ItemArray.Length > 0 Then
+ Dim oValue = oFirstRow.Item(0).ToString()
+
+ LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, oValue)
+ DirectCast(oFoundControl, TextBox).Text = oValue
+ End If
End If
+ ElseIf TypeOf oFoundControl Is LookupControl2 Then
+ LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
+ DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
+ ElseIf TypeOf oFoundControl Is ComboBox Then
+ LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
+ DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
End If
Catch ex As Exception
LOGGER.Error(ex)
diff --git a/Global_Indexer/ClassDatabase.vb b/Global_Indexer/ClassDatabase.vb
index 6d94de1..e4edef7 100644
--- a/Global_Indexer/ClassDatabase.vb
+++ b/Global_Indexer/ClassDatabase.vb
@@ -17,7 +17,8 @@ Public Class ClassDatabase
SQLconnect.Close()
Return True
Catch ex As Exception
- ClassLogger.Add("Unexpected error in Database-Init: " & ex.Message, True)
+ LOGGER.Info("Unexpected error in Database-Init: " & ex.Message)
+ LOGGER.Error(ex)
Return False
End Try
End Function
@@ -47,11 +48,11 @@ Public Class ClassDatabase
' Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD"))
' connectionString = conn.ConnectionString
Case Else
- LOGGER.Info(" - ConnectionType nicht integriert", False)
+ LOGGER.Info(" - ConnectionType nicht integriert")
MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
End Select
Else
- LOGGER.Info(" No entry for Connection-ID: " & id.ToString, True)
+ LOGGER.Info(" No entry for Connection-ID: " & id.ToString)
End If
Catch ex As Exception
@@ -64,13 +65,13 @@ Public Class ClassDatabase
Public Shared Function Return_Datatable_Combined(SqlCommand As String, ConnectionString As String, Optional userInput As Boolean = False)
If ConnectionString.Contains("Initial Catalog=") Then
- Return Return_Datatable(SqlCommand, userInput)
+ Return Return_Datatable_CS(SqlCommand, ConnectionString, userInput)
Else
Return Oracle_Return_Datatable(SqlCommand, ConnectionString, userInput)
End If
End Function
- Public Shared Function Return_Datatable(sql_command As String, Optional userInput As Boolean = False)
+ Public Shared Function Return_Datatable(sql_command As String, Optional userInput As Boolean = False) As DataTable
Try
Dim SQLconnect As New SqlConnection
Dim SQLcommand As SqlCommand
@@ -94,17 +95,17 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & sql_command)
End If
- Return False
+ Return Nothing
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & sql_command)
Return Nothing
End Try
End Function
@@ -133,8 +134,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & sql_command)
End If
Return False
@@ -142,12 +143,12 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & sql_command)
Return Nothing
End Try
End Function
- Public Shared Function Execute_non_Query(sql_command As String, Optional userInput As Boolean = False)
+ Public Shared Function Execute_non_Query(sql_command As String, Optional userInput As Boolean = False) As Boolean
Try
Dim SQLconnect As New SqlConnection
Dim SQLcommand As SqlCommand
@@ -171,8 +172,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & sql_command)
End If
Return False
@@ -180,8 +181,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & sql_command)
Return False
End Try
@@ -211,8 +212,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & sql_command)
End If
Return False
@@ -220,8 +221,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Execute_Scalar: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & sql_command)
Return Nothing
End Try
End Function
@@ -240,8 +241,9 @@ Public Class ClassDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
- ClassLogger.Add("Unexpected error in OracleExecute_Scalar: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & cmdscalar, False)
+ LOGGER.Info("Unexpected error in OracleExecute_Scalar: " & ex.Message)
+ LOGGER.Error(ex.Message)
+ LOGGER.Info("#SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -262,8 +264,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in OracleExecute_non_Query: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & ExecuteCMD, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & ExecuteCMD)
Return False
End Try
@@ -287,8 +289,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Unexpected error in Oracle_Return_Datatable: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & Select_anweisung, False)
+ LOGGER.Error(ex)
+ LOGGER.Info("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
@@ -299,8 +301,8 @@ Public Class ClassDatabase
If FatalErrors.Contains(ex.Number) Then
DatabaseConnectionTimeout = True
- ClassLogger.Add("Network timeout error in Return_Datatable: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & sql_command, False)
+ LOGGER.Info("Network timeout error in Return_Datatable: " & ex.Message)
+ LOGGER.Info("#SQL: " & sql_command)
Return True
Else
diff --git a/Global_Indexer/ClassDatatables.vb b/Global_Indexer/ClassDatatables.vb
new file mode 100644
index 0000000..c2d2be1
--- /dev/null
+++ b/Global_Indexer/ClassDatatables.vb
@@ -0,0 +1,139 @@
+Public Class ClassDatatables
+
+#Region "TBDD_GROUP"
+ Public Shared Function AddGroupToProfile(GroupId As Integer, ProfileId As Integer) As Boolean
+ Try
+ Dim oSQL = $"
+ INSERT INTO TBDD_USRGRP_DOKTYPE
+ (DOCTYPE_ID, GROUP_ID, ADDED_WHO)
+ VALUES ({ProfileId}, {GroupId}, '{Environment.UserName}')
+ "
+ Return ClassDatabase.Execute_non_Query(oSQL, True)
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ Return False
+ End Try
+ End Function
+
+ Public Shared Function RemoveGroupFromProfile(GroupId As Integer, ProfileId As Integer) As Boolean
+ Try
+ Dim oSQL = $"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND GROUP_ID = {GroupId}"
+ Return ClassDatabase.Execute_non_Query(oSQL, True)
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ Return False
+ End Try
+ End Function
+
+ Public Shared Function GetAssignedGroups(ProfileId As Integer) As DataTable
+ Try
+ Dim oSQL As String = $"
+ SELECT GUID, NAME FROM TBDD_GROUPS
+ WHERE GUID IN
+ (
+ SELECT GROUP_ID
+ FROM TBDD_USRGRP_DOKTYPE
+ WHERE DOCTYPE_ID = {ProfileId}
+ )
+ "
+ Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+ Return oDatatable
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ Return Nothing
+ End Try
+ End Function
+
+ Public Shared Function GetAvailableGroups(ProfileId As Integer) As DataTable
+ Try
+ Dim oSQL As String = $"
+ SELECT GUID, NAME FROM TBDD_GROUPS
+ WHERE GUID NOT IN
+ (
+ SELECT GROUP_ID
+ FROM TBDD_USRGRP_DOKTYPE
+ WHERE DOCTYPE_ID = {ProfileId}
+ )
+ "
+ Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+ Return oDatatable
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ Return Nothing
+ End Try
+ End Function
+#End Region
+
+#Region "TBDD_USER"
+
+ Public Shared Function AddUserToProfile(UserId As Integer, ProfileId As Integer) As Boolean
+ Try
+ Dim oSQL = $"
+ INSERT INTO TBDD_USER_DOKTYPE
+ (DOCTYPE_ID, USER_ID, ADDED_WHO)
+ VALUES ({ProfileId}, {UserId}, '{Environment.UserName}')
+ "
+ Return ClassDatabase.Execute_non_Query(oSQL, True)
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ Return False
+ End Try
+ End Function
+
+ Public Shared Function RemoveUserFromProfile(UserId As Integer, ProfileId As Integer) As Boolean
+ Try
+ Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND USER_ID = {UserId}"
+ Return ClassDatabase.Execute_non_Query(oSQL, True)
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ Return False
+ End Try
+ End Function
+
+ Public Shared Function GetAssignedUsers(ProfileId As Integer) As DataTable
+ Try
+ Dim oSQL As String = $"
+ SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
+ WHERE GUID IN (
+ SELECT USER_ID
+ FROM TBDD_USER_DOKTYPE
+ WHERE DOCTYPE_ID = {ProfileId}
+ )
+ "
+ Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+ Return oDatatable
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ Return Nothing
+ End Try
+ End Function
+
+ Public Shared Function GetAvailableUsers(ProfileId As Integer) As DataTable
+ Try
+ Dim oSQL As String = $"
+ SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
+ WHERE GUID NOT IN (
+ SELECT USER_ID
+ FROM TBDD_USER_DOKTYPE
+ WHERE DOCTYPE_ID = {ProfileId}
+ )
+ AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('GLOBIX', 1))
+ "
+ Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+ Return oDatatable
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ Return Nothing
+ End Try
+ End Function
+#End Region
+
+
+
+
+
+End Class
diff --git a/Global_Indexer/ClassDragDrop.vb b/Global_Indexer/ClassDragDrop.vb
index 4d997f2..7718f79 100644
--- a/Global_Indexer/ClassDragDrop.vb
+++ b/Global_Indexer/ClassDragDrop.vb
@@ -1,135 +1,93 @@
-Imports System.IO
-Imports Microsoft.Office.Interop
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+
Public Class ClassDragDrop
- Public Shared files_dropped As String()
- Public Shared Function Drop_File(e As DragEventArgs)
+ Private downHitInfo As GridHitInfo = Nothing
+
+ Public Sub New()
+ End Sub
+
+ Public Sub AddGridView(view As GridView)
+ AddHandler view.MouseDown, AddressOf view_MouseDown
+ AddHandler view.MouseMove, AddressOf view_MouseMove
+ AddHandler view.GridControl.DragOver, AddressOf grid_DragOver
+ End Sub
+
+ Private Sub view_MouseDown(sender As Object, e As MouseEventArgs)
+ Dim view As GridView = sender
+ downHitInfo = Nothing
+ Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
+
+ If Control.ModifierKeys <> Keys.None Then
+ Return
+ End If
+
+ If e.Button = MouseButtons.Left And hitInfo.RowHandle >= 0 Then
+ downHitInfo = hitInfo
+ End If
+ End Sub
+
+ Private Sub view_MouseMove(sender As Object, e As MouseEventArgs)
Try
- ClassLogger.Add(">> Drop_File", False)
- files_dropped = Nothing
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- Dim MyFiles() As String
- Dim i As Integer
- ' Assign the files to an array.
- MyFiles = e.Data.GetData(DataFormats.FileDrop)
- ' Loop through the array and add the files to the list.
- For i = 0 To MyFiles.Length - 1
- ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False)
- ReDim Preserve files_dropped(i)
- files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
- ' ListBox1.Items.Add(MyFiles(i))
- Next
- Return True
- ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
- '// the first step here is to get the stbFileName
- '// of the attachment and
- '// build a full-path name so we can store it
- '// in the temporary folder
- '//
- '// set up to obtain the aryFileGroupDescriptor
- '// and extract the file name
- Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
- Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512]
- stmInput.Read(aryFileGroupDescriptor, 0, 512)
- '// used to build the stbFileName from the aryFileGroupDescriptor block
- Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
- '// this trick gets the stbFileName of the passed attached file
- Dim intCnt As Integer = 76
- Do While aryFileGroupDescriptor(intCnt) <> 0
- stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
- intCnt += 1
- Loop
- stmInput.Close()
- 'Sonderzeichen entfernen
- Dim Tempfilename = ClassFilehandle.InvalidCharacters(stbFileName.ToString)
- Dim anhaenge = e.Data.GetDataPresent("FileContents")
- 'Dim path As String = "C:\VBProjekte\Dateien"
- '// put the zip file into the temp directory
- Dim strOutFile As String = Path.GetTempPath() & Tempfilename
- '// create the full-path name
- '//
- '// Second step: we have the file name.
- '// Now we need to get the actual raw
- '// data for the attached file and copy it to disk so we work on it.
- '//
- '// get the actual raw file into memory
- Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
- If msInput Is Nothing = False Then
- '// allocate enough bytes to hold the raw date
- Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
- '// set starting position at first byte and read in the raw data
- msInput.Position = 0
- msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32))
- '// create a file and save the raw zip file to it
- Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) ';
- fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length)
- fsOutput.Close() ' // close the file
- Dim resultVersion = ClassFilehandle.Versionierung_Datei(strOutFile)
- If resultVersion <> "" Then
- strOutFile = resultVersion
+ Dim view As GridView = sender
+ Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
+
+ If e.Button = MouseButtons.Left And Not IsNothing(downHitInfo) Then
+ Dim dragSize As Size = SystemInformation.DragSize
+ Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize)
+
+ ' DragRect ist ein kleines Rechteck, dessen Mitte der Punkt ist, wo die Maus geklickt wurde.
+ ' Es soll verhindern, dass durch schnelles Klicken unbeabsichtigt Drag'n'Drop Operationen initiiert werden
+ ' Siehe: https://msdn.microsoft.com/en-us/library/system.windows.forms.systeminformation.dragsize(v=vs.110).aspx
+ If Not dragRect.Contains(New Point(e.X, e.Y)) Then
+ ' dragDropData enhält eine einzelne Row oder den kompletten View,
+ ' jenachdem, wie die Drag'n'Drop Operation gestartet wurde.
+ Dim dragDropData As String
+
+ ' Wenn keine Zeile markiert ist
+ If downHitInfo.RowHandle < 0 Then
+ Exit Sub
End If
- Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile)
- '// always good to make sure we actually created the file
- If (finTemp.Exists = True) Then
- ReDim Preserve files_dropped(0)
- files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
- If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
- Return True
- Else
- ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
+
+ ' Wenn zwar eine Zeile markiert ist, aber keine über die Checkbox angehakt wurde,
+ ' wird die markierte Zeile übergeben.
+ ' Wenn 1 oder n Zeilen über die Checkbox angehakt wurde, werden diese übergeben
+ Dim row As DataRow = view.GetDataRow(downHitInfo.RowHandle)
+ Dim source As String = view.GridControl.Name
+
+ If Not IsNothing(row) Then
+ Try
+ dragDropData = row.Item("GUID") & "|" & source
+
+ view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move)
+ downHitInfo = Nothing
+
+ DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ End Try
End If
End If
End If
- If e.Data.GetDataPresent("FileGroupDescriptor") Then
- Dim oApp
- Try
- oApp = New Outlook.Application()
- Catch ex As Exception
- MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
- End Try
-
- ClassLogger.Add(">> Drop of msg", False)
- 'supports a drop of a Outlook message
- Dim myobj As Object
- For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
- myobj = oApp.ActiveExplorer.Selection.Item(i)
- Dim subj As String = myobj.Subject
- If subj = "" Then
- subj = "NO_SUBJECT"
- End If
- If subj.Contains("\") Then
- subj = subj.Replace("\", "-")
- End If
- If subj.Contains("/") Then
- subj = subj.Replace("/", "-")
- End If
- 'Sonderzeichen entfernen
- subj = ClassFilehandle.InvalidCharacters(subj)
- 'hardcode a destination path for testing
- Dim strFile As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
- strFile = strFile.Replace("?", "")
- strFile = strFile.Replace("!", "")
- strFile = strFile.Replace("%", "")
- strFile = strFile.Replace("$", "")
- ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
- Try
- myobj.SaveAs(strFile)
- Catch ex As Exception
- MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- Return False
- End Try
-
- ReDim Preserve files_dropped(i)
- files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile
- Next
- Return True
- 'Drop eines Outlook Attachments
- End If
Catch ex As Exception
- MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- Return False
+ LOGGER.Error(ex)
+ MsgBox("Error in view_MouseMove: " & ex.Message, MsgBoxStyle.Critical)
End Try
-
+ End Sub
- End Function
-
+ Private Sub grid_DragOver(sender As Object, e As DragEventArgs)
+ If e.Data.GetDataPresent(DataFormats.Text) Then
+ Dim data As String = e.Data.GetData(DataFormats.Text)
+ Dim source = data.Split("|")(1)
+
+ Dim grid As GridControl = sender
+
+ If grid.Name <> source Then
+ e.Effect = DragDropEffects.Move
+ End If
+ Else
+ e.Effect = DragDropEffects.None
+ End If
+ End Sub
End Class
diff --git a/Global_Indexer/ClassEmail.vb b/Global_Indexer/ClassEmail.vb
index ed16dd0..28618e1 100644
--- a/Global_Indexer/ClassEmail.vb
+++ b/Global_Indexer/ClassEmail.vb
@@ -14,9 +14,9 @@ Public Class ClassEmail
'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger
' Neue Nachricht erzeugen:
- Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, _
- "" & vBody & "
>> Version: " & My.Application.Info.Version.ToString & "
>> Maschine: " & Environment.MachineName & "
" & "
>> Domain-Name: " & Environment.UserDomainName & "
" & _
- "
>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
+ Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName,
+ "" & vBody & "
>> Version: " & My.Application.Info.Version.ToString & "
>> Maschine: " & Environment.MachineName & "
" & "
>> Domain-Name: " & Environment.UserDomainName & "
" &
+ "
>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " &
My.Computer.Clock.LocalTime.ToLongTimeString & "")
If test = False Then
If Log = True Then
@@ -39,7 +39,7 @@ Public Class ClassEmail
'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
Dim emailClient As New SmtpClient(emailsmtp)
'Email mit Authentifizierung
- Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain)
+ Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw)
emailClient.UseDefaultCredentials = False
emailClient.Credentials = SMTPUserInfo
emailClient.Port = 25
@@ -61,11 +61,12 @@ Public Class ClassEmail
MsgBox("Support-Email sucessfully sent!", MsgBoxStyle.Information, "Success:")
End If
End If
- 'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
+ 'LOGGER.Info(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!")
Next
Return True
Catch ex As Exception
- ClassLogger.Add("### Fehler im Mailversand: " & ex.Message)
+ LOGGER.Info("### Fehler im Mailversand: " & ex.Message)
+ LOGGER.Error(ex.message)
Return False
End Try
End Function
diff --git a/Global_Indexer/ClassFileDrop.vb b/Global_Indexer/ClassFileDrop.vb
new file mode 100644
index 0000000..4997b8f
--- /dev/null
+++ b/Global_Indexer/ClassFileDrop.vb
@@ -0,0 +1,284 @@
+Imports System.IO
+Imports Microsoft.Office.Interop
+
+
+
+Public Class ClassFileDrop
+ Public Shared files_dropped As String()
+
+ ' Tobit David Drag Drop: https://www.david-forum.de/thread/12671-drag-and-drop-von-faxen-und-mails-in-net-anwendung/
+ 'Private Declare Function DVEmlFromMailItem Lib "DvApi32" (ByVal oMailItem As MailItem, ByVal strFileName As String) As Long
+
+ Public Shared Function Drop_File(e As DragEventArgs)
+ Try
+ LOGGER.Info("Available Drop Formats:")
+
+ For Each oFormat As String In e.Data.GetFormats()
+ LOGGER.Info(oFormat)
+ Next
+
+ LOGGER.Info(">> Drop_File")
+ files_dropped = Nothing
+ If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+ Dim MyFiles() As String
+ Dim i As Integer
+ ' Assign the files to an array.
+ MyFiles = e.Data.GetData(DataFormats.FileDrop)
+ ' Loop through the array and add the files to the list.
+ For i = 0 To MyFiles.Length - 1
+ LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i))
+ ReDim Preserve files_dropped(i)
+ files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
+ ' ListBox1.Items.Add(MyFiles(i))
+ Next
+ Return True
+ ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
+ '// the first step here is to get the stbFileName
+ '// of the attachment and
+ '// build a full-path name so we can store it
+ '// in the temporary folder
+ '//
+ '// set up to obtain the aryFileGroupDescriptor
+ '// and extract the file name
+ Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
+ Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512]
+ stmInput.Read(aryFileGroupDescriptor, 0, 512)
+ '// used to build the stbFileName from the aryFileGroupDescriptor block
+ Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
+ '// this trick gets the stbFileName of the passed attached file
+ Dim intCnt As Integer = 76
+ Do While aryFileGroupDescriptor(intCnt) <> 0
+ stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
+ intCnt += 1
+ Loop
+ stmInput.Close()
+ 'Sonderzeichen entfernen
+ Dim Tempfilename = ClassFilehandle.InvalidCharacters(stbFileName.ToString)
+ Dim anhaenge = e.Data.GetDataPresent("FileContents")
+ 'Dim path As String = "C:\VBProjekte\Dateien"
+ '// put the zip file into the temp directory
+ Dim strOutFile As String = Path.GetTempPath() & Tempfilename
+ '// create the full-path name
+ '//
+ '// Second step: we have the file name.
+ '// Now we need to get the actual raw
+ '// data for the attached file and copy it to disk so we work on it.
+ '//
+ '// get the actual raw file into memory
+ Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
+ If msInput Is Nothing = False Then
+ '// allocate enough bytes to hold the raw date
+ Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
+ '// set starting position at first byte and read in the raw data
+ msInput.Position = 0
+ msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32))
+ '// create a file and save the raw zip file to it
+ Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) ';
+ fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length)
+ fsOutput.Close() ' // close the file
+ Dim resultVersion = ClassFilehandle.Versionierung_Datei(strOutFile)
+ If resultVersion <> "" Then
+ strOutFile = resultVersion
+ End If
+ Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile)
+ '// always good to make sure we actually created the file
+ If (finTemp.Exists = True) Then
+ ReDim Preserve files_dropped(0)
+ files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
+ LOGGER.Info(">> Drop an Attachment - File: " & strOutFile)
+ Return True
+ Else
+ LOGGER.Info(">> Attachment File from Outlook could not be created")
+ End If
+ End If
+ End If
+ If e.Data.GetDataPresent("FileGroupDescriptor") Then
+ Dim oApp
+ Try
+ oApp = New Outlook.Application()
+ Catch ex As Exception
+ MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
+ End Try
+
+ LOGGER.Info(">> Drop of msg")
+ 'supports a drop of a Outlook message
+ Dim myobj As Object
+ For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
+ myobj = oApp.ActiveExplorer.Selection.Item(i)
+ Dim subj As String = myobj.Subject
+ If subj = "" Then
+ subj = "NO_SUBJECT"
+ End If
+ If subj.Contains("\") Then
+ subj = subj.Replace("\", "-")
+ End If
+ If subj.Contains("/") Then
+ subj = subj.Replace("/", "-")
+ End If
+ 'Sonderzeichen entfernen
+ subj = ClassFilehandle.InvalidCharacters(subj)
+ 'hardcode a destination path for testing
+ Dim strFile As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
+ strFile = strFile.Replace("?", "")
+ strFile = strFile.Replace("!", "")
+ strFile = strFile.Replace("%", "")
+ strFile = strFile.Replace("$", "")
+ LOGGER.Info(">> Drop of msg - File:" & strFile)
+ Try
+ myobj.SaveAs(strFile)
+ Catch ex As Exception
+ MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+ Return False
+ End Try
+
+ ReDim Preserve files_dropped(i)
+ files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile
+ Next
+ Return True
+ 'Drop eines Outlook Attachments
+ End If
+ Catch ex As Exception
+ MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+ Return False
+ End Try
+
+
+ End Function
+
+ 'Private Sub DragDrop_HandleTobit(e As DragEventArgs)
+ ' If e.Data.GetDataPresent("#TobitMsgData") Then
+ ' Dim Quellpfad As String = ""
+ ' Dim Dateinamen As String()
+ ' 'Quellpfad zu den David Dateien auslesen
+ ' Using ms As MemoryStream = e.Data.GetData("#TobitMsgData")
+ ' Dim bytes As Byte() = ms.ToArray()
+ ' Dim n As Integer = 0
+ ' Dim c As Char
+ ' Do While True
+ ' c = Convert.ToChar(bytes(n))
+ ' If bytes(n) <> 0 Then
+ ' Quellpfad &= c
+ ' n += 1
+ ' Else
+ ' Exit Do
+ ' End If
+ ' Loop
+ ' End Using
+ ' 'Dateinamen der gedroppten Emails auslesen
+ ' Using ms As MemoryStream = e.Data.GetData("FileGroupDescriptor")
+ ' 'Header sind 4B
+ ' 'Jeder Datensatz ist 332B
+ ' 'Bei Index 72 des Datensatzes beginnt das "Dateiname.eml"
+ ' Dim bytes As Byte() = ms.ToArray()
+ ' ReDim Dateinamen(Int(bytes.Count / 332) - 1)
+ ' ' Array mit so vielen Elementen wie Datensätze im FileGroupDescriptor sind
+ ' Dim AnzahlMails As Integer = bytes(0)
+ ' Dim Dateiname As String
+ ' Dim n As Integer
+ ' For i = 0 To AnzahlMails - 1
+ ' Dateiname = ""
+ ' n = 0
+ ' Do While True
+ ' 'Solange die Bytes auslesen, bis man einen vbNullChar liest
+ ' If bytes(i * 332 + 4 + 72 + n) <> 0 Then
+ ' Dateiname = Dateiname & Convert.ToChar(bytes(i * 332 + 4 + 72 + n))
+
+ ' n += 1
+ ' Else
+ ' Exit Do
+ ' End If
+ ' Loop
+ ' Dateinamen(i) = Dateiname
+ ' Next
+ ' End Using
+ ' Using EntryDataEx As MemoryStream = e.Data.GetData("#TobitEntryDataEx")
+ ' Dim bytes As Byte() = EntryDataEx.ToArray()
+ ' 'Die Größe des Headers steht im ersten Byte
+ ' Dim HeadExSize As Integer = bytes(0)
+ ' 'Die Anzahl der Datensätze steht im 8. - 11. Byte
+ ' Dim nCountEntries As Integer = BitConverter.ToInt32(bytes, 8)
+ ' Dim nPositions(nCountEntries - 1) As Integer
+ ' For i = 0 To nCountEntries - 1
+ ' 'Datensätze in der #TobitEntryDataEx sind 269 Byte groß.
+ ' 'In den ersten 4 Bytes steht die QID aus der archive.dat
+ ' nPositions(i) = BitConverter.ToInt32(bytes, HeadExSize + i * 269)
+ ' Next
+
+ ' Using fs As New FileStream(Quellpfad & "\archive.dat", FileMode.Open, FileAccess.Read)
+
+ ' 'archive.dat als MemoryStream kopieren
+ ' Using ms As New MemoryStream
+ ' fs.CopyTo(ms)
+ ' 'MemoryStream in ein Byte-Array konvertieren
+ ' Dim archiveBytes As Byte() = ms.ToArray()
+ ' 'Datensätze in der archive.dat sind 430 Byte groß
+ ' For i = 16 To archiveBytes.Length - 1 Step 430
+
+ ' 'Das 17.-20. Byte ist die QID die wir suchen
+ ' Dim QID As Integer = BitConverter.ToInt32(archiveBytes, i)
+ ' 'Wenn die QID übereinstimmt mit einer der David-Mails, dann lies den Dateinamen im Archiv aus
+ ' If nPositions.Contains(QID) Then
+
+ ' 'Der Index der QID (0, ..., nCountEntries - 1)
+ ' Dim nPosIndex As Integer = -1
+ ' For j = 0 To nPositions.Length - 1
+ ' If QID = nPositions(j) Then
+ ' nPosIndex = j
+ ' Exit For
+ ' End If
+ ' Next
+ ' 'Alle Bytes ab dem 17. bis zum Ende des Datensatzes aus der archive.bat auslesen und als String konvertieren
+ ' Dim byteString As String = ""
+ ' For j = 0 To 429 - 17
+ ' byteString &= Convert.ToChar(archiveBytes(i + j))
+ ' Next
+ ' 'Index der Id herausfinden (Index des Quellpfads im byteString + Länge des Quellpfads + 1 "\")
+ ' Dim IdIndex As Integer = byteString.IndexOf(Quellpfad, StringComparison.OrdinalIgnoreCase) + Quellpfad.Length + 1
+ ' 'Die Id sind dann die 8 Zeichen ab dem IdIndex
+ ' Dim Id As String = byteString.Substring(IdIndex, 8)
+ ' 'EML speichern
+ ' DavidEmlSpeichern(Quellpfad, Dateinamen(nPosIndex), QID, Id)
+ ' End If
+ ' Next
+ ' End Using
+ ' End Using
+ ' End Using
+ ' End If
+ 'End Sub
+
+ 'Private Sub DavidEmlSpeichern(ArchivePfad As String, Dateiname As String, ID As String, FaxID As String)
+ ' Dim oApp As DavidAPIClass
+ ' Dim oAcc As Account
+ ' Dim oArchive As Archive
+ ' Dim oMessageItems As MessageItems
+ ' Dim oMailItem As MailItem
+ ' oApp = New DavidAPIClass()
+ ' oApp.LoginOptions = DvLoginOptions.DvLoginForceAsyncDuplicate
+ ' oAcc = oApp.Logon("DavidServer", "", "", "", "", "NOAUTH")
+ ' oArchive = oAcc.ArchiveFromID(ArchivePfad)
+ ' If FaxID.First() = "M" Then
+ ' 'Faxe beginnen mit M
+ ' 'Bei Faxen kann man einfach die .001 Datei kopieren und als TIF speichern
+ ' File.Copy(ArchivePfad & "\" & FaxID & ".001", "C:\Temp\" & Dateiname, True)
+ ' ListeAktualisieren()
+ ' ElseIf FaxID.First() = "I" Then
+ ' 'Emails beginnen mit I
+ ' 'Bei Emails muss man die DVEmlFromMailItem mit dem richtigen oMailItem aufrufen
+ ' oMessageItems = oArchive.MailItems
+ ' For Each oMailItem In oMessageItems
+ ' If oMailItem._ID = ID Then
+ ' Dim fileName As String = Space(260)
+ ' If DVEmlFromMailItem(oMailItem, fileName) <> 0 Then
+ ' fileName = Trim(fileName)
+ ' fileName = fileName.Substring(0, fileName.Length - 1)
+ ' File.Copy(fileName, "C:\Temp\" & Dateiname, True)
+ ' ListeAktualisieren()
+ ' End If
+ ' Exit For
+ ' End If
+ ' Next
+ ' End If
+ 'End Sub
+
+
+End Class
diff --git a/Global_Indexer/ClassFilehandle.vb b/Global_Indexer/ClassFilehandle.vb
index b5b4119..2859cdc 100644
--- a/Global_Indexer/ClassFilehandle.vb
+++ b/Global_Indexer/ClassFilehandle.vb
@@ -1,6 +1,6 @@
Imports System.IO
-Imports Independentsoft
Imports System.Text.RegularExpressions
+Imports Independentsoft
Public Class ClassFilehandle
'''
@@ -39,6 +39,16 @@ Public Class ClassFilehandle
End If
End If
End If
+
+ If filename.ToUpper.EndsWith(".LNK") Then
+ If USER_LANGUAGE = "de-DE" Then
+ MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
+ Else
+ MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "Global Indexer")
+ End If
+ Return False
+ End If
+
Return Insert_GI_File(filename, handletype)
Catch ex As Exception
MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
@@ -59,7 +69,7 @@ Public Class ClassFilehandle
If Not msg.InternetMessageId Is Nothing Then
CURRENT_MESSAGEID = msg.InternetMessageId
Else
- If LogErrorsOnly = False Then ClassLogger.Add(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!", False)
+ LOGGER.Info(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
Dim sGUID As String
sGUID = System.Guid.NewGuid.ToString()
CURRENT_MESSAGEID = sGUID
@@ -67,7 +77,7 @@ Public Class ClassFilehandle
'Nur die MSGDatei ablegen
Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
-
+
If File.Exists(tempfile) Then
File.Delete(tempfile)
End If
@@ -83,7 +93,7 @@ Public Class ClassFilehandle
Dim _msg As New Msg.Message(msgname)
Dim i1 As Integer = 1
- If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl der Attachments: " & _msg.Attachments.Count, False)
+ LOGGER.Info(">> Anzahl der Attachments: " & _msg.Attachments.Count)
For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
If erfolgreich = False Then
Exit For
@@ -94,7 +104,20 @@ Public Class ClassFilehandle
Else
attachment_name = attachment.LongFileName
End If
- If Not attachment_name.Contains("inline") Then
+ If attachment.EmbeddedMessage IsNot Nothing Then
+ attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
+ tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
+ tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+
+ If tempfile <> String.Empty Then
+ Dim oMessage = attachment.EmbeddedMessage
+ oMessage.Save(tempfile)
+ TEMP_FILES.Add(tempfile)
+ LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+ erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+ i1 += 1
+ End If
+ ElseIf Not attachment_name.Contains("inline") Then
'Sonderzeichen entfernen
attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
tempfile = Path.Combine(Path.GetTempPath, attachment_name)
@@ -103,7 +126,7 @@ Public Class ClassFilehandle
attachment.Save(tempfile)
'Datei in Array zum Templöschen speichern
TEMP_FILES.Add(tempfile)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
+ LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
'nun der Insert des Anhanges
erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
i1 += 1
@@ -143,7 +166,7 @@ Public Class ClassFilehandle
' Ist ein Fehler aufgetreten, so wird nach außen hin generell
' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
- If LogErrorsOnly = False Then ClassLogger.Add(">> FileInUse Message: " & ex.Message, False)
+ LOGGER.Info(">> FileInUse Message: " & ex.Message)
IsFileInUse = True
Finally
' Die eventuell geöffnete Datei schließen
@@ -176,7 +199,8 @@ Public Class ClassFilehandle
End If
Return _NewFileString & extension
Catch ex As Exception
- ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message)
+ LOGGER.Info(" - Error in versioning file - error: " & vbNewLine & ex.Message)
+ LOGGER.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
Return ""
End Try
@@ -189,7 +213,7 @@ Public Class ClassFilehandle
''' Ersatzzeichen für alle unzulässigen Zeichen
''' im Dateinamen
Public Shared Function CleanFilename(ByVal sFilename As String, Optional ByVal REPLACEChar As String = "") As String
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Filename before CleanFilename: '" & sFilename & "'", False)
+ LOGGER.Info(" >> Filename before CleanFilename: '" & sFilename & "'")
If sFilename.Contains(".\") Then
sFilename = sFilename.Replace(".\", "\")
End If
@@ -204,7 +228,7 @@ Public Class ClassFilehandle
sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
'Dim oCleanFileName As String = String.Join(REPLACEChar, sFilename.Split(Path.GetInvalidFileNameChars()))
Dim oCleanFileName As New System.IO.FileInfo(System.Text.RegularExpressions.Regex.Replace(sFilename, String.Format("[{0}]", String.Join(String.Empty, Path.GetInvalidFileNameChars)), REPLACEChar))
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Filename after CleanFilename: '" & sFilename & "'", False)
+ LOGGER.Info(" >> Filename after CleanFilename: '" & sFilename & "'")
Return sFilename
End Function
End Class
diff --git a/Global_Indexer/ClassFolderWatcher.vb b/Global_Indexer/ClassFolderWatcher.vb
index 3cb1644..68f22d5 100644
--- a/Global_Indexer/ClassFolderWatcher.vb
+++ b/Global_Indexer/ClassFolderWatcher.vb
@@ -13,7 +13,7 @@ Public Class ClassFolderWatcher
FW_started = False
'FolderWatch neu instanzieren
FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatch neu instanziert", False)
+ LOGGER.Info(" >> FolderWatch neu instanziert")
FolderWatcher.IncludeSubdirectories = False
FolderWatcher.EnableRaisingEvents = True
AddHandler FolderWatcher.Created, AddressOf OnCreated
@@ -23,7 +23,8 @@ Public Class ClassFolderWatcher
CONFIG.Save()
End If
Catch ex As Exception
- ClassLogger.Add($"Error in Restart_FolderWatch: {ex.Message}", False)
+ LOGGER.Info($"Error in Restart_FolderWatch: {ex.Message}")
+ LOGGER.Error(ex.Message)
End Try
End Function
Public Shared Function Restart_FolderWatchSCAN()
@@ -33,7 +34,7 @@ Public Class ClassFolderWatcher
FolderWatcher_SCAN.EnableRaisingEvents = False
'FolderWatch neu instanzieren
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
+ LOGGER.Info(" >> FolderWatchScan neu instanziert")
FolderWatcher_SCAN.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -42,7 +43,8 @@ Public Class ClassFolderWatcher
CONFIG.Save()
End If
Catch ex As Exception
- ClassLogger.Add($"Error in Restart_FolderWatchSCAN: {ex.Message}", False)
+ LOGGER.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}")
+ LOGGER.Error(ex.Message)
End Try
End Function
Public Shared Function StartStop_FolderWatch()
@@ -53,7 +55,7 @@ Public Class ClassFolderWatcher
End If
If FolderWatcher Is Nothing Then
FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatch Gestartet", False)
+ LOGGER.Info(" >> FolderWatch Gestartet")
FolderWatcher.IncludeSubdirectories = False
FolderWatcher.EnableRaisingEvents = True
AddHandler FolderWatcher.Created, AddressOf OnCreated
@@ -67,7 +69,7 @@ Public Class ClassFolderWatcher
' Dim watcher As New FileSystemWatcher()
' watcher.Path = CURRENT_FOLDERWATCH
FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatch Gestartet", False)
+ LOGGER.Info(" >> FolderWatch Gestartet")
FolderWatcher.IncludeSubdirectories = False
FolderWatcher.EnableRaisingEvents = True
AddHandler FolderWatcher.Created, AddressOf OnCreated
@@ -80,7 +82,7 @@ Public Class ClassFolderWatcher
'Gestartet also Stoppen
FolderWatcher.EnableRaisingEvents = False
FW_started = False
- ClassLogger.Add(" >> FolderWatch gestoppt", False)
+ LOGGER.Info(" >> FolderWatch gestoppt")
'SaveConfigValue("FW_started", "False")
CONFIG.Config.FolderWatchStarted = False
CONFIG.Save()
@@ -88,7 +90,7 @@ Public Class ClassFolderWatcher
End If
'If watcher.EnableRaisingEvents = False Then
' watcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
- ' ClassLogger.Add(" - vFolderWatch.Gestartet", False)
+ ' LOGGER.Info(" - vFolderWatch.Gestartet")
' watcher.IncludeSubdirectories = False
' watcher.EnableRaisingEvents = True
' AddHandler watcher.Created, AddressOf OnCreated
@@ -121,7 +123,7 @@ Public Class ClassFolderWatcher
End If
If FolderWatcher_SCAN Is Nothing Then
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+ LOGGER.Info(" >> FolderWatch Scan Gestartet")
FolderWatcher_SCAN.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -133,7 +135,7 @@ Public Class ClassFolderWatcher
' Dim watcher As New FileSystemWatcher()
' watcher.Path = CURRENT_FOLDERWATCH
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+ LOGGER.Info(" >> FolderWatch Scan Gestartet")
FolderWatcher_SCAN.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -143,13 +145,13 @@ Public Class ClassFolderWatcher
Else
'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False
- ClassLogger.Add(" >> FolderWatch Scan gestoppt", False)
+ LOGGER.Info(" >> FolderWatch Scan gestoppt")
'SaveConfigValue("FWSCAN_started", "False")
CONFIG.Config.FolderWatchScanStarted = False
CONFIG.Save()
Return 0
End If
-
+
Catch ex As Exception
MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return 99
@@ -160,7 +162,7 @@ Public Class ClassFolderWatcher
'Gestartet also Stoppen
FolderWatcher.EnableRaisingEvents = False
FW_started = False
- ClassLogger.Add(" >> FolderWatch gestoppt", False)
+ LOGGER.Info(" >> FolderWatch gestoppt")
'SaveConfigValue("FW_started", "False")
CONFIG.Config.FolderWatchStarted = True
CONFIG.Save()
@@ -171,7 +173,7 @@ Public Class ClassFolderWatcher
End Function
Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
If ClassDatabase.DatabaseConnectionTimeout = True Then
- ClassLogger.Add(">> File handling aborted because of database timeout error!", False)
+ LOGGER.Info(">> File handling aborted because of database timeout error!")
Exit Sub
End If
@@ -190,11 +192,11 @@ Public Class ClassFolderWatcher
handleType = "|FW_SIMPLEINDEXER|"
End If
'Die Datei übergeben
- If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False)
+ LOGGER.Info(">> OnCreated-File:" & e.FullPath)
If ClassIndexFunctions.FileExistsinDropTable(e.FullPath) = False Then
ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
Else
- ClassLogger.Add(">> Folderwatcher: File already exists:" & e.FullPath, False)
+ LOGGER.Info(">> Folderwatcher: File already exists:" & e.FullPath)
End If
Catch ex As Exception
diff --git a/Global_Indexer/ClassFormFunctions.vb b/Global_Indexer/ClassFormFunctions.vb
index a7c2aca..ff2e1b8 100644
--- a/Global_Indexer/ClassFormFunctions.vb
+++ b/Global_Indexer/ClassFormFunctions.vb
@@ -47,13 +47,14 @@ Public Class ClassFormFunctions
'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;
Case Else
- ClassLogger.Add(" - ConnectionType not integrated", False)
+ LOGGER.Info(" - ConnectionType not integrated")
MsgBox("ConnectionType not integrated", MsgBoxStyle.Critical, "Please check connection:")
End Select
End If
Catch ex As Exception
- ClassLogger.Add(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
+ LOGGER.Info(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
+ LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
End Try
diff --git a/Global_Indexer/ClassHelper.vb b/Global_Indexer/ClassHelper.vb
index 78414d9..b23d7d8 100644
--- a/Global_Indexer/ClassHelper.vb
+++ b/Global_Indexer/ClassHelper.vb
@@ -10,10 +10,11 @@ Public Class ClassHelper
Dim utf8Encoding As New System.Text.UTF8Encoding(True)
Dim encodedString() As Byte
encodedString = utf8Encoding.GetBytes(str)
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString)), False)
+ LOGGER.Info(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString)))
Return utf8Encoding.GetString(encodedString)
Catch ex As Exception
- ClassLogger.Add("Unexpected error in encode_utf8: " & ex.Message)
+ LOGGER.Info("Unexpected error in encode_utf8: " & ex.Message)
+ LOGGER.Error(ex.message)
Return Nothing
End Try
@@ -26,7 +27,8 @@ Public Class ClassHelper
' return byte data
Return bytes
Catch ex As Exception
- ClassLogger.Add("Unexpected error in StringAsUtf8Bytes: " & ex.Message)
+ LOGGER.Info("Unexpected error in StringAsUtf8Bytes: " & ex.Message)
+ LOGGER.Error(ex.message)
Return Nothing
End Try
@@ -37,7 +39,8 @@ Public Class ClassHelper
Dim matches As MatchCollection = Regex.Matches(str, pattern)
Return matches.Count
Catch ex As Exception
- ClassLogger.Add("Unexpected error in CheckSpecialSigns: " & ex.Message)
+ LOGGER.Info("Unexpected error in CheckSpecialSigns: " & ex.Message)
+ LOGGER.Error(ex.message)
Return 0
End Try
End Function
diff --git a/Global_Indexer/ClassHotkey.vb b/Global_Indexer/ClassHotkey.vb
deleted file mode 100644
index f55388e..0000000
--- a/Global_Indexer/ClassHotkey.vb
+++ /dev/null
@@ -1,50 +0,0 @@
-Public Class ClassHotkey
-
-#Region "Declarations - WinAPI, Hotkey constant and Modifier Enum"
- '''
- ''' Declaration of winAPI function wrappers. The winAPI functions are used to register / unregister a hotkey
- '''
- Public Declare Function RegisterHotKey Lib "user32" _
- (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
-
- Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
-
- Public Const WM_HOTKEY As Integer = &H312
-
- Enum KeyModifier
- Alt = &H1
- Control = &H2
- Shift = &H4
- Winkey = &H8
-
- End Enum 'This enum is just to make it easier to call the registerHotKey function: The modifier integer codes are replaced by a friendly "Alt","Shift" etc.
-#End Region
-
-
-#Region "Hotkey registration, unregistration and handling"
- Public Shared Sub registerHotkey(ByRef sourceForm As Form, ByVal hotkeyID As Integer, ByVal triggerKey As String, ByVal modifier As KeyModifier)
- RegisterHotKey(sourceForm.Handle, hotkeyID, modifier, Asc(triggerKey.ToUpper))
- End Sub
- Public Shared Sub unregisterHotkeys(ByRef sourceForm As Form)
- 'Try
- UnregisterHotKey(sourceForm.Handle, 1) 'Remember to call unregisterHotkeys() when closing your application.
- UnregisterHotKey(sourceForm.Handle, 2)
- UnregisterHotKey(sourceForm.Handle, 3)
- 'Catch ex As Exception
- ' ClassLogger.Add("Unerwarteter Fehler in Unregister Hotkeys´: " & ex.Message, True)
- 'End Try
-
- End Sub
- 'Public Shared Sub handleHotKeyEvent(ByVal hotkeyID As IntPtr)
- ' Select Case hotkeyID
- ' Case 1
- ' MsgBox("The hotkey ALT+W (ID: 1) was pressed")
- ' Case 2
- ' MsgBox("The hotkey ALT+E (ID: 2) was pressed")
- ' Case 3
- ' MsgBox("The hotkey ALT+R (ID: 3) was pressed")
- ' End Select
- 'End Sub
-#End Region
-
-End Class
diff --git a/Global_Indexer/ClassHotkey_Windream.vb b/Global_Indexer/ClassHotkey_Windream.vb
index c98b679..ff31166 100644
--- a/Global_Indexer/ClassHotkey_Windream.vb
+++ b/Global_Indexer/ClassHotkey_Windream.vb
@@ -23,7 +23,7 @@ Public Class ClassHotkey_Windream
Dim enumerator1 As New ClassWindowAPI
'Jedes Formularwindow durchlaufen
For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows()
- If LogErrorsOnly = False Then ClassLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False)
+ LOGGER.Info(" ... top-window Name: " & top.MainWindowTitle)
If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
Control_Sequence = 0
For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
@@ -33,7 +33,7 @@ Public Class ClassHotkey_Windream
If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then
Return True
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.", False)
+ LOGGER.Info(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.")
Return False
End If
End If
@@ -45,7 +45,7 @@ Public Class ClassHotkey_Windream
Next top
Catch ex As Exception
MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False)
+ LOGGER.Info(">> Error in IsRelevantWindow:" & ex.Message)
Return False
End Try
End Function
@@ -60,7 +60,7 @@ Public Class ClassHotkey_Windream
For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
If vControl.MainWindowTitle <> "" Then
If Control_Sequence = myControlID Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle, False)
+ LOGGER.Info(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle)
Return vControl.MainWindowTitle.ToString
End If
End If
@@ -71,7 +71,7 @@ Public Class ClassHotkey_Windream
Next top
Catch ex As Exception
MsgBox("Error in Get_windowContent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add(">> Error in Get_windowContent:" & ex.Message, False)
+ LOGGER.Info(">> Error in Get_windowContent:" & ex.Message)
Return Nothing
End Try
End Function
@@ -92,7 +92,7 @@ Public Class ClassHotkey_Windream
End Sub
Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer)
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'", False)
+ LOGGER.Info(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'")
Dim DTWD As DataTable
Dim Objecttype As String
Dim windowname As String
@@ -103,15 +103,15 @@ Public Class ClassHotkey_Windream
Dim _sql = "SELECT WD_SEARCH,HKPROFILE_ID FROM TBHOTKEY_USER_PROFILE WHERE GUID = " & HK_USR_PROFILE_ID
DTWD = ClassDatabase.Return_Datatable(_sql)
If DTWD.Rows.Count = 0 Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...KEINE USER_PROFILES hinterlegt", False)
+ LOGGER.Info(" ...KEINE USER_PROFILES hinterlegt")
Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
End If
If DTWD.Rows.Count > 1 Then
- ClassLogger.Add("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!", True)
+ LOGGER.Info("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!")
Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
End If
If DTWD.Rows(0).Item(0) = "" Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> KEINE Windream-Suche hinterlegt!", False)
+ LOGGER.Info(">> KEINE Windream-Suche hinterlegt!")
Return "Error in Hotkey - KEINE Windream-Suche hinterlegt - Check Logkey"
End If
Dim BaseSearch = DTWD.Rows(0).Item(0)
@@ -119,7 +119,7 @@ Public Class ClassHotkey_Windream
HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID")
Dim windream_temp_search As String = ""
If IO.File.Exists(BaseSearch) = False Then
- ClassLogger.Add("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True)
+ LOGGER.Info("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!")
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical)
@@ -148,9 +148,9 @@ Public Class ClassHotkey_Windream
Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBGI_CONFIGURATION WHERE GUID = 1", MyConnectionString, True)
If WDUnicode = True Then
EncodingFormat = Encoding.GetEncoding(1252) '1252
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Unicode is used (Encoding.GetEncoding(1252))", False)
+ LOGGER.Info(" ...Unicode is used (Encoding.GetEncoding(1252))")
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False)
+ LOGGER.Info(" ...UTF8 (Encoding.GetEncoding(65001))")
EncodingFormat = Encoding.GetEncoding(65001)
End If
@@ -160,16 +160,16 @@ Public Class ClassHotkey_Windream
For Each row As DataRow In DT_HOOKS.Rows
RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE"))
If RelevantWindow = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Not the relevant window", False)
+ LOGGER.Info(" ...Not the relevant window")
Return "Not the Relevant window......"
End If
Next
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...ReadAlltext: " & BaseSearch, False)
+ LOGGER.Info(" ...ReadAlltext: " & BaseSearch)
fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
- If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents geladen", False)
+ LOGGER.Info(" ...fileContents geladen")
fileContents = fileContents.Replace("Í", "Ö")
'Das Array für die PAtterns anpassen
_sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID
@@ -212,7 +212,7 @@ Public Class ClassHotkey_Windream
End If
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'", False)
+ LOGGER.Info(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'")
Dim foundresult = Get_windowContent(windowname, row.Item("SEQUENCE_NUMBER").ToString)
If Not IsNothing(foundresult) Then
'Die Nachbearbeitungsschritte laden
@@ -225,15 +225,15 @@ Public Class ClassHotkey_Windream
End If
If Not IsNothing(foundresult) Then
If foundresult.ToString = "<" Or foundresult.ToString = ">" Then
- ClassLogger.Add(">> Hot Key received an irregular value.", False)
+ LOGGER.Info(">> Hot Key received an irregular value.")
Return "Hotkey konnte nur einen irregulären Wert auswerten."
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'", False)
+ LOGGER.Info(" ...fileContents.length: " & fileContents.Length)
+ LOGGER.Info(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'")
fileContents = fileContents.Replace(row.Item(2).ToString, foundresult)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False)
+ LOGGER.Info(" ...fileContents.length: " & fileContents.Length)
Else
- ClassLogger.Add(">> Hot Key could not read any value.", False)
+ LOGGER.Info(">> Hot Key could not read any value.")
Return "Hotkey konnte keinen Wert auswerten - Evtl. ist das konfigurierte Fenster nicht geöffnet?"
End If
End If
@@ -246,7 +246,7 @@ Public Class ClassHotkey_Windream
Try
'Die File schreiben
My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...wrote Text to windream_temp_search: " & windream_temp_search, False)
+ LOGGER.Info(" ...wrote Text to windream_temp_search: " & windream_temp_search)
' XML-Datei öffnen und laden
Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
Dim Reader As New System.Xml.XmlTextReader(Stream)
@@ -257,9 +257,10 @@ Public Class ClassHotkey_Windream
xml.Load(Reader)
Reader.Close()
xml.Save(windream_temp_search)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Xml Generiert: " & windream_temp_search, False)
+ LOGGER.Info(" ...Xml Generiert: " & windream_temp_search)
Catch ex As Exception
- ClassLogger.Add("TempFile could not be created: " & ex.Message, True)
+ LOGGER.Info("TempFile could not be created: " & ex.Message)
+ LOGGER.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Write XmlSearch:")
End Try
@@ -269,7 +270,8 @@ Public Class ClassHotkey_Windream
Dim myhWnd As IntPtr
Dim p As New Process()
p.StartInfo.FileName = windream_temp_search
- If My.Settings.WDSearch_maximized = True Then
+
+ If CONFIG.Config.WindreamSearchMaximized Then
p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
Else
p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
@@ -281,14 +283,14 @@ Public Class ClassHotkey_Windream
Dim rctMain As RECT
GetWindowRect(p.MainWindowHandle, rctMain)
If LogErrorsOnly = False Then
- ClassLogger.Add(" ...Top-Position: " & rctMain.Top.ToString, False)
- ClassLogger.Add(" ...Left-Position: " & rctMain.Left.ToString, False)
- ClassLogger.Add(" ...Right-Position: " & rctMain.Right.ToString, False)
- ClassLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False)
+ LOGGER.Info(" ...Top-Position: " & rctMain.Top.ToString)
+ LOGGER.Info(" ...Left-Position: " & rctMain.Left.ToString)
+ LOGGER.Info(" ...Right-Position: " & rctMain.Right.ToString)
+ LOGGER.Info(" ...Bottom-Position: " & rctMain.Bottom.ToString)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while executing windream-Search:")
- ClassLogger.Add("Unexpected error while executing search: " & ex.Message, True)
+ LOGGER.Info("Unexpected error while executing search: " & ex.Message)
Return "Unexpected error while executing search"
End Try
Dim psList() As Process
@@ -299,7 +301,7 @@ Public Class ClassHotkey_Windream
Console.WriteLine(p.Id.ToString() + " " + p.ProcessName)
If p.ProcessName.Contains("indream.Find") Then
AppActivate(p.Id)
- If My.Settings.WDSearch_maximized = False Then
+ If CONFIG.Config.WindreamSearchMaximized = False Then
Dim rctMain As RECT
GetWindowRect(p.MainWindowHandle, rctMain)
If rctMain.Left = 0 Or rctMain.Right = 0 Then
@@ -312,17 +314,20 @@ Public Class ClassHotkey_Windream
Next p
Catch ex As Exception
- ClassLogger.Add("Unexpected error while Setting foreground: " & ex.Message, True)
+ LOGGER.Info("Unexpected error while Setting foreground: " & ex.Message)
+ LOGGER.Error(ex.Message)
End Try
Return ""
Catch ex As Exception
- ClassLogger.Add("Unexpected error in Create Search: " & ex.Message, True)
+ LOGGER.Info("Unexpected error in Create Search: " & ex.Message)
+ LOGGER.Error(ex.Message)
MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return "Unexpected error in Create Search"
End Try
Catch ex As Exception
- ClassLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message, True)
+ LOGGER.Info("Unexpected error in RUN_WD_SEARCH: " & ex.Message)
+ LOGGER.Error(ex.message)
MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return "Unerwarteter Unexpected error in RUN_WD_SEARCH"
End Try
diff --git a/Global_Indexer/ClassInit.vb b/Global_Indexer/ClassInit.vb
index 8003ce4..d3a50a9 100644
--- a/Global_Indexer/ClassInit.vb
+++ b/Global_Indexer/ClassInit.vb
@@ -5,23 +5,25 @@ Imports DigitalData.Modules.Config
Public Class ClassInit
Public _lizenzManager As ClassLicenseManager
- Public Sub New()
- End Sub
Public Sub InitLogger()
ClassLogger.Init("", Environment.UserName)
- ClassLogger.Add(">> Programmstart: " & Now, False)
- ClassLogger.Add(">> Username: " & Environment.UserName, False)
- LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
+ LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
+ CompanyName:=My.Application.Info.CompanyName,
+ ProductName:=My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger("Globix")
+ LOGGER.Info("Programmstart: " & Now)
LOGGER.Info("Username: {0}", Environment.UserName)
End Sub
Public Sub InitConfig()
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath)
+ LOGCONFIG.Debug = Not CONFIG.Config.LogErrorsOnly
+ LOGGER.Info("Debug log set to: [{0}]", LOGCONFIG.Debug)
MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
LogErrorsOnly = CONFIG.Config.LogErrorsOnly
+
'myPreviewActive = CONFIG.Config.FilePreview
FW_started = CONFIG.Config.FolderWatchStarted
CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
@@ -80,7 +82,6 @@ Public Class ClassInit
GI_withWindream = DT.Rows(0).Item("BIT1")
vWLaufwerk = DT.Rows(0).Item("STRING1")
- DTTBGI_REGEX_DOCTYPE = ClassDatabase.Return_Datatable("SELECT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID")
Return True
Else
Return False
@@ -100,21 +101,21 @@ Public Class ClassInit
folderwatchPath = IIf(IsDBNull(folderwatchPath), "", folderwatchPath)
If folderwatchPath = String.Empty Then
- ClassLogger.Add("Init_Folderwatch: folderwatchPath is empty", True)
+ LOGGER.Info("Init_Folderwatch: folderwatchPath is empty")
FW_started = False
'SaveConfigValue("FW_started", "False")
CONFIG.Config.FolderWatchStarted = False
CONFIG.Save()
-
+
End If
If Not IO.Directory.Exists(folderwatchPath) Then
- ClassLogger.Add("Init_Folderwatch: folderwatchPath does not exists or is invalid path", True)
+ LOGGER.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path")
FW_started = False
'SaveConfigValue("FW_started", "False")
CONFIG.Config.FolderWatchStarted = False
CONFIG.Save()
-
+
End If
CURRENT_FOLDERWATCH = folderwatchPath
@@ -124,7 +125,7 @@ Public Class ClassInit
ClassFolderWatcher.StartStop_FolderWatch()
Catch ex As Exception
MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatch: {ex.Message}", MsgBoxStyle.Critical)
- ClassLogger.Add($"Init_Folderwatch: Unexpected error: {ex.Message}", True)
+ LOGGER.Info($"Init_Folderwatch: Unexpected error: {ex.Message}")
START_INCOMPLETE = True
End Try
@@ -135,14 +136,14 @@ Public Class ClassInit
folderwatchScanPath = IIf(IsDBNull(folderwatchScanPath), "", folderwatchScanPath)
If folderwatchScanPath = String.Empty Then
- ClassLogger.Add("Init_Folderwatch: folderwatchScanPath is empty", True)
+ LOGGER.Info("Init_Folderwatch: folderwatchScanPath is empty")
CONFIG.Config.FolderWatchStarted = False
CONFIG.Save()
Exit Sub
End If
If Not IO.Directory.Exists(folderwatchScanPath) Then
- ClassLogger.Add("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path", True)
+ LOGGER.Info("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path")
CONFIG.Config.FolderWatchStarted = False
CONFIG.Save()
Exit Sub
@@ -155,7 +156,7 @@ Public Class ClassInit
ClassFolderWatcher.StartStop_FolderWatchSCAN()
Catch ex As Exception
MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatchScan: {ex.Message}", MsgBoxStyle.Critical)
- ClassLogger.Add($"Init_Folderwatch: Unexpected error: {ex.Message}", True)
+ LOGGER.Info($"Init_Folderwatch: Unexpected error: {ex.Message}")
START_INCOMPLETE = True
End Try
@@ -180,7 +181,7 @@ Public Class ClassInit
' End If
' Else
- ' ClassLogger.Add("Init_Folderwatch: folderwatch path is nothing!", True)
+ ' LOGGER.Info("Init_Folderwatch: folderwatch path is nothing!")
' End If
' If Not folderwatch_SCAN Is Nothing Then
' CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
@@ -189,10 +190,10 @@ Public Class ClassInit
' ClassFolderWatcher.StartStop_FolderWatchSCAN()
' End If
' Else
- ' ClassLogger.Add("Init_Folderwatch: folderwatch_SCAN path is nothing!", True)
+ ' LOGGER.Info("Init_Folderwatch: folderwatch_SCAN path is nothing!")
' End If
'Catch ex As Exception
- ' ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
+ ' LOGGER.Info("Unexpected Error in Init_Folderwatch: " & ex.Message)
' START_INCOMPLETE = True
'End Try
End Sub
@@ -200,13 +201,14 @@ Public Class ClassInit
Try
Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@user", Environment.UserName)
- ' ClassLogger.Add(">> Username: " & Environment.UserName, False)
+ ' LOGGER.Info(">> Username: " & Environment.UserName)
USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
Try
Dim USERID = CInt(USER_ID)
Catch ex As Exception
- ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True)
+ LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)")
+ LOGGER.Error(ex.Message)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
START_INCOMPLETE = True
@@ -228,21 +230,23 @@ Public Class ClassInit
sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
- ClassLogger.Add("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
+ LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")
START_INCOMPLETE = True
ERROR_STATE = "NO USER"
MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
- USER_IN_MODULE = CBool(DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS"))
+ USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
If USER_IN_MODULE = False Then
- ClassLogger.Add($" - User: {Environment.UserName } nicht für Modul freigegben! [{DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")}]", False)
+ LOGGER.Info(" - User: " & Environment.UserName & " nicht für Modul freigegben!")
START_INCOMPLETE = True
+
Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
+
Exit Sub
End If
- USER_IS_ADMIN = CBool(DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN"))
+ USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
ClassLicence.Refresh_Licence()
@@ -263,17 +267,17 @@ Public Class ClassInit
ClassDatabase.Execute_non_Query(sql)
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
+ LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString)
UserLoggedin = CInt(anzahl)
UserLoggedin += 1
If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
- ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!", False)
+ LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!")
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql, True)
- ClassLogger.Add(" - Wieder abgemeldet", False)
+ LOGGER.Info(" - Wieder abgemeldet")
START_INCOMPLETE = True
End If
End If
@@ -284,7 +288,8 @@ Public Class ClassInit
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
+ LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message)
+ LOGGER.Error(ex.message)
MsgBox(ex.Message, MsgBoxStyle.Critical)
START_INCOMPLETE = True
End Try
diff --git a/Global_Indexer/ClassLayout.vb b/Global_Indexer/ClassLayout.vb
index cf5db58..0277711 100644
--- a/Global_Indexer/ClassLayout.vb
+++ b/Global_Indexer/ClassLayout.vb
@@ -76,11 +76,12 @@ Public Class ClassWindowLocation
End If
Next
If result = False Then
- ClassLogger.Add(">> Saved layout is not fitting to Resolution. Default is loaded.", True)
+ LOGGER.Info(">> Saved layout is not fitting to Resolution. Default is loaded.")
End If
Return result
Catch ex As Exception
- ClassLogger.Add("Error in IsVisibleOnAnyScreen: " & ex.Message, True)
+ LOGGER.Info("Error in IsVisibleOnAnyScreen: " & ex.Message)
+ LOGGER.Error(ex.message)
Return False
End Try
End Function
diff --git a/Global_Indexer/ClassPatterns.vb b/Global_Indexer/ClassPatterns.vb
index c2fe402..f4e2955 100644
--- a/Global_Indexer/ClassPatterns.vb
+++ b/Global_Indexer/ClassPatterns.vb
@@ -39,7 +39,7 @@ Public Class ClassPatterns
Public Const MAX_TRY_COUNT = 500
- Private Shared regex As Regex = New Regex("{#(\w+)#([\w\s_-]+)}+")
+ Private Shared regex As Regex = New Regex("{#(\w+)#([\w\d\s_-]+)}+")
Private Shared allPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA, PATTERN_USER, PATTERN_INT}
Private Shared complexPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA}
Private Shared simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT}
@@ -146,12 +146,28 @@ Public Class ClassPatterns
Dim result = input
Dim oTryCounter = 0
+ LOGGER.Debug("Input String: [{0}]", input)
+
While ContainsPattern(result, PATTERN_CTRL)
+ LOGGER.Debug("ReplaceControlValues Try no. [{0}]", oTryCounter)
+
If oTryCounter > MAX_TRY_COUNT Then
Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{result}].")
End If
- Dim controlName As String = GetNextPattern(result, PATTERN_CTRL).Value
+ LOGGER.Debug("Getting next pattern..")
+
+ Dim oNextPattern = GetNextPattern(result, PATTERN_CTRL)
+
+ If oNextPattern Is Nothing Then
+ LOGGER.Debug("No Next Pattern found. Exiting!")
+ Exit While
+ End If
+
+ LOGGER.Debug("Next Pattern Value: [{0}]", oNextPattern.Value)
+ LOGGER.Debug("Next Pattern Type: [{0}]", oNextPattern.Type)
+
+ Dim controlName As String = oNextPattern.Value
Dim oFoundControl As Control = Nothing
Dim oFoundType As String = Nothing
@@ -160,9 +176,27 @@ Public Class ClassPatterns
Continue For
End If
- Dim oMeta = DirectCast(oControl.Tag, ClassControls.ControlMeta)
+ LOGGER.Debug("Getting control metadata from object: [{0}]", oControl?.Tag?.ToString())
+
+ If oControl.Tag Is Nothing Then
+ LOGGER.Warn("No Metadata object found for control [{0}]. Skipping.", oControl.Name)
+ Continue For
+ End If
+
+ Dim oMeta = TryCast(oControl.Tag, ClassControls.ControlMeta)
+
+ LOGGER.Debug("Metadata IndexName: [{0}]", oMeta.IndexName)
+ LOGGER.Debug("Metadata IndexType: [{0}]", oMeta.IndexType)
+ LOGGER.Debug("Checking Control Name matches..")
+
+ If oMeta Is Nothing Then
+ LOGGER.Warn("No Metadata found for control [{0}]. Skipping.", oControl.Name)
+ Continue For
+ End If
If oMeta.IndexName = controlName Then
+ LOGGER.Debug("Control Name matches! Matching Control: [{0}]", controlName)
+
oFoundControl = oControl
oFoundType = oMeta.IndexType
Exit For
@@ -172,29 +206,53 @@ Public Class ClassPatterns
If oFoundControl IsNot Nothing Then
Dim oValue As String = String.Empty
- If TypeOf oFoundControl Is TextBox Then
- oValue = DirectCast(oFoundControl, TextBox).Text
- ElseIf TypeOf oFoundControl Is CheckBox Then
- oValue = IIf(DirectCast(oFoundControl, CheckBox).Checked, 1, 0)
- ElseIf TypeOf oFoundControl Is LookupControl2 Then
- Dim oLookupControl = DirectCast(oFoundControl, LookupControl2)
+ LOGGER.Debug("Found Control [{0}], continuing with setting value..", oFoundControl.Name)
- If oLookupControl.MultiSelect Then
- Select Case oFoundType
- Case "INTEGER"
- oValue = String.Join(",", oLookupControl.SelectedValues)
- Case "VARCHAR"
- Dim oWrapped = oLookupControl.SelectedValues.Select(Function(v) $"'{v}'")
- oValue = String.Join(",", oWrapped)
- End Select
- Else
- oValue = NotNull(oLookupControl.SelectedValues.Item(0), "")
- End If
+ If TypeOf oFoundControl Is TextBox Then
+ Try
+ oValue = DirectCast(oFoundControl, TextBox).Text
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ LOGGER.Warn("Control Value for TextBox [{0}] could not be retrieved!", oFoundControl.Name)
+ End Try
+ ElseIf TypeOf oFoundControl Is CheckBox Then
+ Try
+ oValue = IIf(DirectCast(oFoundControl, CheckBox).Checked, 1, 0)
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ LOGGER.Warn("Control Value for CheckBox [{0}] could not be retrieved!", oFoundControl.Name)
+ End Try
+ ElseIf TypeOf oFoundControl Is LookupControl2 Then
+ Try
+ Dim oLookupControl = DirectCast(oFoundControl, LookupControl2)
+
+ If oLookupControl.MultiSelect Then
+ Select Case oFoundType
+ Case "INTEGER"
+ oValue = String.Join(",", oLookupControl.SelectedValues)
+ Case "VARCHAR"
+ Dim oWrapped = oLookupControl.SelectedValues
+ oValue = String.Join(",", oWrapped)
+ Case Else
+ LOGGER.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
+ End Select
+ Else
+ oValue = NotNull(oLookupControl.SelectedValues.Item(0), "")
+ End If
+ Catch ex As Exception
+ LOGGER.Error(ex)
+ LOGGER.Warn("Control Value for LookupControl2 [{0}] could not be retrieved!", oFoundControl.Name)
+ End Try
Else
+ LOGGER.Debug("Unknown Control type for type [{0}], setting value to empty string.", oFoundControl.Name)
oValue = ""
End If
+ LOGGER.Debug("Retrieved Value from Control [{0}] is: [{1}]", controlName, oValue)
+
result = ReplacePattern(result, PATTERN_CTRL, oValue)
+ Else
+ LOGGER.Warn("Control [{0}] not found!", controlName)
End If
oTryCounter += 1
@@ -204,6 +262,7 @@ Public Class ClassPatterns
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceControlValues:" & ex.Message)
+ Return input
End Try
End Function
diff --git a/Global_Indexer/ClassPostprocessing.vb b/Global_Indexer/ClassPostprocessing.vb
index 7fb0ca8..6339cfe 100644
--- a/Global_Indexer/ClassPostprocessing.vb
+++ b/Global_Indexer/ClassPostprocessing.vb
@@ -16,7 +16,7 @@ Public Class ClassPostprocessing
Select Case oType
Case VBSPLIT
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False)
+ LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT")
Dim oSeparator As String = oDataRow.Item("TEXT1")
Dim oSplitIndex As Integer = 0
@@ -31,15 +31,15 @@ Public Class ClassPostprocessing
Dim oFindString = oDataRow.Item("TEXT1")
Dim oReplaceString = oDataRow.Item("TEXT2")
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'", False)
+ LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE")
+ LOGGER.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
For Each oIndexValue In oIndexValues
Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString)
oResult.Add(oReplaceResult)
Next
Case REGEXPRESSION
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False)
+ LOGGER.Info(" ...Nachbearbeitung mit RegEx")
Dim oRegexList As New List(Of Regex)
Dim oRegex As New Regex(oDataRow.Item("TEXT1"), RegexOptions.IgnoreCase)
@@ -50,7 +50,7 @@ Public Class ClassPostprocessing
Dim oProcessedString = extractFromStringviaRE(oIndexValue, oRegexList)
oResult.Add(oProcessedString)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & oProcessedString, False)
+ LOGGER.Info(" ...Ergebnis des RegEx: " & oProcessedString)
Next
End Select
@@ -58,55 +58,10 @@ Public Class ClassPostprocessing
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
- ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message)
+ LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message)
End Try
Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray)
-
- 'Dim result As String = idxvalue
- 'Try
- ' For Each row As DataRow In Datatable.Rows
- ' Select Case row.Item("TYPE").ToString.ToUpper
- ' Case "VBSPLIT"
- ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False)
- ' Dim strSplit() As String
- ' strSplit = result.Split(row.Item("TEXT1"))
- ' For i As Integer = 0 To strSplit.Length - 1
- ' If i = CInt(row.Item("TEXT2")) Then
- ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False)
- ' result = strSplit(i).ToString
- ' End If
- ' Next
- ' Case "VBREPLACE"
- ' If LogErrorsOnly = False Then
- ' ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False)
- ' ClassLogger.Add(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'", False)
- ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
- ' End If
-
- ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
- ' Case "REG. EXPRESSION"
- ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False)
- ' Dim RegexList As New List(Of System.Text.RegularExpressions.Regex)
- ' Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase)
- ' RegexList.Add(Regex)
- ' '
- ' Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList)
- ' If Not IsNothing(resultRegex) Then
- ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & resultRegex.ToString, False)
- ' result = resultRegex.ToString
- ' Else
- ' ClassLogger.Add("Postprocessing RegEx konnte kein Ergebnis auswerten!", True)
- ' End If
- ' End Select
- ' Next
- ' Return result
- 'Catch ex As Exception
- ' ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message)
- ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
- ' Return result
- 'End Try
-
End Function
'''
diff --git a/Global_Indexer/ClassWindream.vb b/Global_Indexer/ClassWindream.vb
index 3524005..e6e128e 100644
--- a/Global_Indexer/ClassWindream.vb
+++ b/Global_Indexer/ClassWindream.vb
@@ -8,6 +8,7 @@ Imports WINDREAMLib.WMSearchRelation
Imports WMOBRWSLib
Imports WMOSRCHLib
Imports System.IO
+Imports System.Text.RegularExpressions
Public Class ClassWindream
@@ -18,6 +19,8 @@ Public Class ClassWindream
Const VARIABLEN = 2
Const WMObjectStreamOpenModeReadWrite = 2
+ Const STREAM_BinaryObject = "BinaryObject"
+
Public Const WMObjectVariableValueTypeUndefined = 0
Public Const WMObjectVariableValueTypeString = 1
Public Const WMObjectVariableValueTypeInteger = 2
@@ -38,12 +41,12 @@ Public Class ClassWindream
#Region "+++++ Variablen +++++"
Public Shared oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
- Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+ Public Shared _session 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
Public Shared oBrowser As New WMOBRWSLib.ServerBrowser
- Public Shared oDokumentTypen As WINDREAMLib.WMObjects
- Private oController As New WMOSearchController
+ Public Shared _DocumentTypes As WINDREAMLib.WMObjects
+ Private _SearchController As New WMOSearchController
Public Shared _WDObjekttyp As String
- Private Shared aktWMObject As WINDREAMLib.WMObject
+ Private Shared _currentWMObject As WINDREAMLib.WMObject
#End Region
@@ -71,13 +74,13 @@ Public Class ClassWindream
Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
- oController = New WMOSearchController
+ _SearchController = New WMOSearchController
- Me.oController.CheckSearchProfile(wdfLocation.ToLower)
- Dim suchTyp = Me.oController.SearchProfileTargetProgID
+ Me._SearchController.CheckSearchProfile(wdfLocation.ToLower)
+ Dim suchTyp = Me._SearchController.SearchProfileTargetProgID
Dim ExSettings As Object
Dim oSearch As Object
- ExSettings = Me.oController.SearchProfileExSettings
+ ExSettings = Me._SearchController.SearchProfileExSettings
If ExSettings = 0 Then ExSettings = 7
Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
@@ -195,13 +198,14 @@ Public Class ClassWindream
Try
Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
- oSession = CreateObject("Windream.WMSession", GetCurrentServer)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...windream-Server: '" & GetCurrentServer() & "'", False)
+ _session = CreateObject("Windream.WMSession", GetCurrentServer)
+ LOGGER.Info(" ...windream-Server: '" & GetCurrentServer() & "'")
' Connection-Objekt instanziieren
oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed")
Catch ex As Exception
- ClassLogger.Add("Windream konnte nicht initiiert werden: " & ex.Message, True)
+ LOGGER.Info("Windream konnte nicht initiiert werden: " & ex.Message)
+ LOGGER.Error(ex.Message)
Return False
End Try
@@ -223,14 +227,14 @@ Public Class ClassWindream
' oConnect.Password "windream"
' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
- oConnect.LoginSession(oSession)
- If oSession.aLoggedin = False Then
+ oConnect.LoginSession(_session)
+ If _session.aLoggedin = False Then
MsgBox("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", MsgBoxStyle.Exclamation, "Verbindung konnte nicht hergestellt werden")
Return False
End If
'If My.Settings.vDetailLog Then
- ' ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
+ ' LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'")
'End If
' AUSGABE VON SYSTEMINFORMATIONEN
@@ -250,10 +254,10 @@ Public Class ClassWindream
'MsgBox(WMCtrl.WMServerName)
Try
- oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
+ _session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine
' Ordnertypen ausgelesen werden
- oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+ _DocumentTypes = _session.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
Catch ex As Exception
Return False
End Try
@@ -264,7 +268,7 @@ Public Class ClassWindream
Catch ex As Exception
If Err.Number = -2147220985 Then
- MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _
+ MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine &
"Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
Else
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Login an windream")
@@ -287,80 +291,18 @@ Public Class ClassWindream
'''
Public Shared Function GetObjecttypesAsObjects() As WMObjects
Try
- Return oDokumentTypen
+ Return _DocumentTypes
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der Objekttypen")
Return Nothing
End Try
End Function
- '''
- ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings.
- '''
- ''' Array mit allen Objekttypen als Strings
- '''
- Public Function GetObjecttypesAsStrings() As String()
- Try
- Dim objektTypenStr(Me.oDokumentTypen.Count) As String
-
- For i As Integer = 0 To Me.oDokumentTypen.Count
- objektTypenStr(i) = Me.oDokumentTypen.Item(i).aName
- Next
-
- Return objektTypenStr
-
- Catch ex As Exception
- MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der Objekttypen als String")
- Return Nothing
- End Try
-
- End Function
- Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
- Try
- Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
- Dim vType = oAttribute.getVariableValue("dwAttrType")
- Return vType
- Catch ex As Exception
- Return Nothing
- End Try
- End Function
- Public Shared Function GetSystemIndices(ByVal name As String)
- Dim oObjectType As WMObject
- ' den Objekttyp laden
- oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name)
-
-
- Dim msg As String
- Dim oSystemIndexes = oObjectType.GetVariableNames(1, False)
- msg = "System indices (internal column names): " & vbNewLine
- For Each oSystemIndex In oSystemIndexes
- msg = msg & vbNewLine & oSystemIndex
- Next
- MsgBox(msg)
-
-
- End Function
- Public Shared Function GetTypIndexNames(ByVal name As String)
- Dim oObjectType As WMObject
- ' den Objekttyp laden
- oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name)
-
-
- Dim msg As String
- Dim oSystemIndexes = oObjectType.GetVariableNames(2, False)
- msg = "Type Indices (type Index names): " & vbNewLine
- For Each oSystemIndex In oSystemIndexes
- msg = msg & vbNewLine & oSystemIndex
- Next
- MsgBox(msg)
-
-
- End Function
'''
''' Liefert alle Indexe eines Objekttypen.
'''
- ''' Name des Objekttyps
+ ''' Name des Objekttyps
''' Array mit allen Objekttyp zugeordneten Indexen als String
'''
Public Shared Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String()
@@ -372,7 +314,7 @@ Public Class ClassWindream
Dim oRelProperties As WMObjectRelationClass
' den Objekttyp laden
- oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, Objecttype_name)
+ oObjectType = _session.GetWMObjectByName(WMEntityObjectType, Objecttype_name)
' Beziehung zu Indizes des Objekttyp auslesen
oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
@@ -405,31 +347,6 @@ Public Class ClassWindream
Return Nothing
End Try
End Function
- '''
- ''' Liefert einen Objekttyp als WMObject an Hand dessen Name.
- '''
- ''' Name des Objekttyps
- ''' Objekttyp als WMObject
- '''
- Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
- Try
- ' alle Objekttypen auslesen
- Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
-
- ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
- For Each oObjectType As WMObject In oObjectTypes
- If oObjectType.aName = objekttypName Then
- Return oObjectType
- End If
- Next
-
- Return Nothing
-
- Catch ex As Exception
- MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden")
- Return Nothing
- End Try
- End Function
'''
''' Überprüft ob der angegebene Index im Objekttyp existiert
@@ -466,7 +383,7 @@ Public Class ClassWindream
'''
Public Shared Function IsLoggedIn() As Boolean
Try
- Return oSession.aLoggedin
+ Return _session.aLoggedin
Catch ex As Exception
MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Loggedin-Prüfung")
End Try
@@ -489,119 +406,52 @@ Public Class ClassWindream
Return ""
End Function
-
- '''
- ''' Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:')
- '''
- ''' Laufwerksbuchstabe mit Doppelpunkt als String
- '''
- 'Public Function GetWindreamDriveLetter() As String
-
- ' Try
- ' Dim oControl As AISCONTROLDATACOMLib.AISControlData
- ' Dim sDrive As String = ""
-
- ' oControl = New AISCONTROLDATACOMLib.AISControlData
-
- ' sDrive = oControl.GetStringValue(&H10040003)
-
- ' Return sDrive & ":"
-
- ' Catch ex As Exception
- ' MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen des windream-Laufwerks")
- ' End Try
-
- ' Return ""
- 'End Function
-
- '''
- ''' Liefert den Typen eines Indexes als Integer.
- '''
- ''' Name des zu überprüfenden Indexfeldes
- ''' Liefert eine Zahl, die einen Typen beschreibt
- '''
-
- Public Function GetValuesfromAuswahlliste(ByVal _auswahlliste As String) As Object
- Try
- 'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
- 'Dim vType = oAttribute.getVariableValue("vItems")
- 'Return vType
- Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, _auswahlliste)
- If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
- Dim Values = oChoiceList
- Values = oChoiceList.GetVariableValue("vItems")
- Dim anz As Integer = 0
-
- For Each CLItem In Values
- If oChoiceList.aName IsNot Nothing Then
- anz += 1
- End If
- Next
- Dim strListe(anz - 1)
- Dim zahl As Integer = 0
- For Each CLItem In Values
- If oChoiceList.aName IsNot Nothing Then
- strListe(zahl) = CLItem
- zahl += 1
- End If
- Next
- Return strListe
- Else
- MsgBox("Auswahlliste: " & _auswahlliste & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
- Return Nothing
- End If
-
- Catch ex As Exception
- MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")
- Return Nothing
- End Try
- End Function
#End Region
- Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal newfilename As String)
- On Error Resume Next
- aktWMObject = Nothing
- Dim Zielverzeichnis As String = Path.GetDirectoryName(newfilename)
- If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) = False Then
- My.Computer.FileSystem.CreateDirectory(Zielverzeichnis)
- ClassLogger.Add(" - Zielverzeichnis neu erzeugt!", False)
+ Public Shared Function Stream_File(ByVal SourceFilePath As String, ByVal NewFileName As String)
+ _currentWMObject = Nothing
+
+ Dim oWindreamFilename As String = NewFileName
+ Dim oFileName As String = NewFileName
+ Dim oWDriveRegex As New Regex("^\w{1}:")
+
+ If oWDriveRegex.IsMatch(NewFileName) Then
+ oFileName = oWDriveRegex.Replace(NewFileName, vWLaufwerk)
+ oWindreamFilename = oWDriveRegex.Replace(NewFileName, String.Empty)
+ Else
+ oWindreamFilename = NewFileName.Replace(vWLaufwerk, String.Empty)
End If
- Const STREAM_BinaryObject = "BinaryObject"
+ 'If NewFileName.StartsWith("W:") Then
+ ' oFileName = NewFileName.Replace("W:", vWLaufwerk)
+ ' oWindreamFilename = NewFileName.Replace("W:", String.Empty)
+ 'Else
+ ' oWindreamFilename = NewFileName.Replace(vWLaufwerk, String.Empty)
+ 'End If
+
+ Dim oSourceFilename As String = Path.GetFileName(SourceFilePath)
+ Dim oDestination As String = Path.GetDirectoryName(oFileName)
+
+ If My.Computer.FileSystem.DirectoryExists(oDestination) = False Then
+ My.Computer.FileSystem.CreateDirectory(oDestination)
+ LOGGER.Info(" - Zielverzeichnis neu erzeugt!")
+ End If
+
+ LOGGER.Info(" ...Stream_File wurde gestartet")
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Stream_File wurde gestartet", False)
- Dim windreamFilename As String = ""
' Objekt für Datei und Zielverzeichnis anlegen
- Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Quelldatei gelesen", False)
- '"Version-KZ entfernen
- newfilename = newfilename.Replace("\\", "\")
- windreamFilename = newfilename.Substring(2)
- If windreamFilename.Contains("[%Version]") Then
- windreamFilename = windreamFilename.Replace("[%Version]", "")
- newfilename = windreamFilename
- End If
- If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath existiert", False)
+ LOGGER.Info(" ...Quelldatei gelesen")
+
+ If My.Computer.FileSystem.DirectoryExists(oDestination) Then
+ LOGGER.Info(" ...targetPath existiert")
' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
- Dim dvr As New DriveInfo(vWLaufwerk & ":")
- Dim freeSpace = dvr.TotalFreeSpace
- Dim info As New FileInfo(filenameQuelle)
- ' Get length of the file.
- Dim length As Long = info.Length
- If freeSpace < length Then
- If USER_LANGUAGE = "de-DE" Then
- MsgBox("Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
- Else
- MsgBox("Not enough diskspace in Target-Directory.", MsgBoxStyle.Exclamation, "Not enough diskspace")
- End If
+ Dim oFileInfo As New FileInfo(SourceFilePath)
+ Dim oFileLength As Long = oFileInfo.Length
- Return -10
- End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei kopieren von '" & filenameQuelle & "' nach '" & newfilename & "'.", False)
+ LOGGER.Info(" ...Datei kopieren von '" & SourceFilePath & "' nach '" & NewFileName & "'.")
Dim Connect
Dim Session
Dim WMObject
@@ -609,16 +459,9 @@ Public Class ClassWindream
Dim aWMStream
Dim wmbrwsr
Dim dmsServer As String
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Connect definieren: CreateObject('Windream.WMConnect')", False)
+ LOGGER.Info(" ...Connect definieren: CreateObject('Windream.WMConnect')")
Connect = CreateObject("Windream.WMConnect")
aFileIO = New WMOTOOLLib.WMFileIO
- 'If My.Settings.DLL_WMOTOOL = "" Then
- ' aFileIO = New WMOTOOLLib.WMFileIO
- ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Direkter Verweis auf New WMOTOOLLib.WMFileIO", False)
- 'Else
- ' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
- ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False)
- 'End If
wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
'==================================================================
@@ -635,13 +478,13 @@ Public Class ClassWindream
Connect.LoginSession(Session)
Dim LoggedIn = Session.aLoggedin
If LoggedIn Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False)
+ LOGGER.Info(" ...Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer)
'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'")
Else
- ClassLogger.Add(" >> Login on dms-Server failed", False)
+ LOGGER.Info(" >> Login on dms-Server failed")
' MsgBox("Login failed. ")
End If
- oSession = Session
+ _session = Session
Const WMCOMEventWMSessionNeedIndex = 1
'windream Objekte erstellen ohne Indexierungs-Event
@@ -649,63 +492,74 @@ Public Class ClassWindream
'==================================================================
' check if files exist
'==================================================================
- If LogErrorsOnly = False Then ClassLogger.Add(" ...ÜBERPRÜFTER DATEINAME => " & windreamFilename, False)
+ LOGGER.Info(" ...ÜBERPRÜFTER DATEINAME => " & oWindreamFilename)
Dim wdFilexists As Boolean
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
- wdFilexists = Session.WMObjectExists(WMEntityDocument, windreamFilename, 0, 0)
+ LOGGER.Info(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...")
+ wdFilexists = Session.WMObjectExists(WMEntityDocument, oWindreamFilename, 0, 0)
Err.Clear()
If wdFilexists = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
+ LOGGER.Info(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden")
'==================================================================
' create an object
'==================================================================
- WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
+ WMObject = Session.GetNewWMObjectFS(WMEntityDocument, oWindreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
If Err.Number > 0 Then
- ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
+ LOGGER.Info(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description)
End If
' MsgBox("Created file: " + windreamFilename)
Else
' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
- If CURRENT_DOKART_DUPLICATE_HANDLING = "Default" Or CURRENT_DOKART_DUPLICATE_HANDLING = "Question" Then
- ''##########
- Dim msg = String.Format("Eine Datei mit identischem Namen " & vbNewLine & "'{0}'" & vbNewLine & "existiert bereits!" & vbNewLine & "Wollen Sie die bestehende Datei ersetzen?", newfilename)
- If USER_LANGUAGE <> "de-DE" Then
- msg = "There is already a file with the same name! Would You like to replace the file?"
- End If
- Dim result As MsgBoxResult
- result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
- If result = MsgBoxResult.No Then
- windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
- Else
- If Delete_WDFile(windreamFilename) = False Then
+ LOGGER.Info(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN")
+
+
+ Select Case CURRENT_DOKART_DUPLICATE_HANDLING
+
+ Case "New version"
+ LOGGER.Info("Creating new version of file [{0}]", NewFileName)
+ oWindreamFilename = ClassFilehandle.Versionierung_Datei(NewFileName).ToString.Substring(2)
+ CURRENT_NEWFILENAME = oWindreamFilename
+ Case "Question"
+ Dim oMessage = $"Eine Datei mit identischem Namen {vbNewLine}'{NewFileName}'{vbNewLine}existiert bereits!{vbNewLine}Wollen Sie die bestehende Datei ersetzen?"
+ If USER_LANGUAGE <> "de-DE" Then
+ oMessage = $"There is already a file with the name {NewFileName}!{vbNewLine}Would You like to replace the file?"
+ End If
+
+ Dim oResult = MessageBox.Show(oMessage, "File exists", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+
+ If oResult = DialogResult.No Then
+ oWindreamFilename = ClassFilehandle.Versionierung_Datei(NewFileName).ToString.Substring(2)
+ Else
+ If Delete_WDFile(oWindreamFilename) = False Then
+ Return False
+ End If
+ End If
+ Case Else
+ If Delete_WDFile(oWindreamFilename) = False Then
Return False
End If
- End If
- ElseIf CURRENT_DOKART_DUPLICATE_HANDLING = "New version" Then
- windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
- End If
- WMObject = Session.GetNewWMObjectFS(1, windreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
+ End Select
+
+ WMObject = Session.GetNewWMObjectFS(1, oWindreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
If Err.Number > 0 Then
- ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
+ LOGGER.Info(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...WMObject zugewiesen", False)
+ LOGGER.Info(" ...WMObject zugewiesen")
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...ENDGÜLTIGER DATEINAME => " & windreamFilename, False)
+ LOGGER.Info(" ...ENDGÜLTIGER DATEINAME => " & oWindreamFilename)
If WMObject IsNot Nothing Then
- newfilename = vWLaufwerk & ":" & windreamFilename
+ 'NewFileName = vWLaufwerk & ":" & oWindreamFilename
' lock object for file system access (to change the file itself)
WMObject.lock()
' set fileIO the local source file
- aFileIO.bstrOriginalFileName = filenameQuelle
+ aFileIO.bstrOriginalFileName = SourceFilePath
If Err.Number > 0 Then
- ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
- ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False)
+ LOGGER.Info(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+ LOGGER.Info(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'")
WMObject.Unlock()
- Delete_WDFile(windreamFilename)
+ Delete_WDFile(oWindreamFilename)
Return False
' MsgBox(Err.Description)
@@ -713,96 +567,100 @@ Public Class ClassWindream
' open the windream object's file stream for writing
aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
If Err.Number > 0 Then
- ClassLogger.Add(" Unexpected error in OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+ LOGGER.Info(" Unexpected error in OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
- Delete_WDFile(windreamFilename)
+ Delete_WDFile(oWindreamFilename)
Return False
'MsgBox(Err.Description)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...oWMStream erzeugt", False)
+ LOGGER.Info(" ...oWMStream erzeugt")
' give fileIO helper object the windream stream
aFileIO.aWMStream = aWMStream
If Err.Number > 0 Then
- ClassLogger.Add(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+ LOGGER.Info(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
- Delete_WDFile(windreamFilename)
+ Delete_WDFile(oWindreamFilename)
Return False
'MsgBox(Err.Description)
End If
' let fileIO object import the original file into windream
aFileIO.ImportOriginal(True)
If Err.Number > 0 Then
- ClassLogger.Add(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+ LOGGER.Info(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
- Delete_WDFile(windreamFilename)
+ Delete_WDFile(oWindreamFilename)
Return False
' MsgBox(Err.Description)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Inhalt der Datei konnte übertragen werden", False)
+ LOGGER.Info(" ...Inhalt der Datei konnte übertragen werden")
' close the windream file stream
aWMStream.Close()
If Err.Number > 0 Then
- ClassLogger.Add(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+ LOGGER.Info(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
- Delete_WDFile(windreamFilename)
+ Delete_WDFile(oWindreamFilename)
Return False
'MsgBox(Err.Description)
End If
' save new windream object
WMObject.save()
If Err.Number > 0 Then
- ClassLogger.Add(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+ LOGGER.Info(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
- Delete_WDFile(windreamFilename)
+ Delete_WDFile(oWindreamFilename)
Return False
'MsgBox(Err.Description)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei konnte gespeichert werden", False)
+ LOGGER.Info(" ...Datei konnte gespeichert werden")
' unlock the windream object
WMObject.unlock()
If Err.Number > 0 Then
- ClassLogger.Add(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+ LOGGER.Info(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
- Delete_WDFile(windreamFilename)
+ Delete_WDFile(oWindreamFilename)
Return False
'MsgBox(Err.Description)
End If
'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
- Dim info2 As New FileInfo(newfilename)
+ Dim info2 As New FileInfo(oFileName)
Dim length1 As Long = info2.Length
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Length der Zieldatei: " & length1.ToString, False)
- If length > 0 And Err.Number = 0 Then
- Dim p As String
- If windreamFilename.StartsWith("\") Then
- If windreamFilename.StartsWith("\\") Then
- p = windreamFilename.Replace("\\", "\")
- Else
- p = windreamFilename
- End If
- Else
- p = "\" & windreamFilename
- End If
- CURRENT_NEWFILENAME = vWLaufwerk & ":" & p
- ClassLogger.Add(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!", False)
- aktWMObject = WMObject
+ LOGGER.Info(" ...Length der Zieldatei: " & length1.ToString)
+ If oFileLength > 0 And Err.Number = 0 Then
+
+ 'Dim p As String
+ 'If oWindreamFilename.StartsWith("\") Then
+ ' If oWindreamFilename.StartsWith("\\") Then
+ ' p = oWindreamFilename.Replace("\\", "\")
+ ' Else
+ ' p = oWindreamFilename
+ ' End If
+ 'Else
+ ' p = "\" & oWindreamFilename
+ 'End If
+ 'CURRENT_NEWFILENAME = vWLaufwerk & ":" & p
+
+ CURRENT_NEWFILENAME = oFileName
+
+ LOGGER.Info(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!")
+ _currentWMObject = WMObject
Return True
Else
- Delete_WDFile(windreamFilename)
- Console.WriteLine(Err.Number.ToString)
- ClassLogger.Add(" Unexpected error in Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht")
+ Delete_WDFile(oWindreamFilename)
+ LOGGER.Info("Error Number: [{0}]", Err.Number)
+ LOGGER.Info(" Unexpected error in Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht")
Return False
End If
Else
- ClassLogger.Add(" Could not create a WMObject for file:'" & windreamFilename)
+ LOGGER.Info(" Could not create a WMObject for file:'" & oWindreamFilename)
If Not Err() Is Nothing Then
If Not Err.Description Is Nothing Then
- ClassLogger.Add(Err.Description)
+ LOGGER.Info(Err.Description)
End If
End If
Return False
End If
Else
- If LogErrorsOnly = False Then ClassLogger.Add("...targetPath existiert NICHT", False)
+ LOGGER.Info("...targetPath existiert NICHT")
Return False
End If
@@ -814,18 +672,19 @@ Public Class ClassWindream
End If
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
Try
- WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument
+ WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument
Catch ex As Exception
- ClassLogger.Add(">> Could not create WMObject for file '" & WD_File & "' - so it is not existing", False)
+ LOGGER.Info(">> Could not create WMObject for file '" & WD_File & "' - so it is not existing")
+ LOGGER.Error(ex.Message)
Return False
End Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Deleting started - Object created", False)
+ LOGGER.Info(" >> Deleting started - Object created")
WMObject.Delete()
Return True
Catch ex As Exception
MsgBox("Unexpected Error in Delete_WDFile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add("Unexpected Error in Delete_WDFile: " & ex.Message, False)
+ LOGGER.Info("Unexpected Error in Delete_WDFile: " & ex.Message)
Return False
End Try
End Function
@@ -839,43 +698,43 @@ Public Class ClassWindream
Public Shared Function DateiIndexieren(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String)
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" ...DateiIndexieren wurde aufgerufen", False)
+ LOGGER.Info(" ...DateiIndexieren wurde aufgerufen")
WD_File = WD_File.Substring(2)
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString)
' den Dokumenttyp schreiben
- If LogErrorsOnly = False Then ClassLogger.Add(" ## Indexieren wird gestartet ##", False)
+ LOGGER.Info(" ## Indexieren wird gestartet ##")
' ein windream-Objekt der Datei anlegen
- WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
+ WMObject = _currentWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei wird gesperrt", False)
+ LOGGER.Info(" ...Datei wird gesperrt")
' die Datei sperren
WMObject.lock()
Catch ex As Exception
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist bereits gesperrt", False)
+ LOGGER.Info(" ...Datei ist bereits gesperrt")
' nichts tun (Datei ist bereits gesperrt)
End Try
If IsNothing(WMObject) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Windream Object ist nothing, Indexierung wird abgebrochen", False)
+ LOGGER.Info(" ...Windream Object ist nothing, Indexierung wird abgebrochen")
Return False
End If
If IsNothing(WMObject.aObjectType) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Kein Objekttyp gesetzt, Indexierung wird abgebrochen", False)
+ LOGGER.Info(" ...Kein Objekttyp gesetzt, Indexierung wird abgebrochen")
Return False
End If
- If LogErrorsOnly = False Then ClassLogger.Add($" ...Objekttyp wird gesetzt: " & _WDObjekttyp, False)
+ LOGGER.Info($" ...Objekttyp wird gesetzt: " & _WDObjekttyp)
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If WMObject.aObjectType.aName = "Standard" Then
' ihr den entsprechenden Dokumenttyp zuweisen
- WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+ WMObject.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp wurde gesetzt", False)
+ LOGGER.Info(" ...Objekttyp wurde gesetzt")
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False)
+ LOGGER.Info(" ...Objekttyp war bereits gesetzt")
End If
Try
@@ -891,42 +750,42 @@ Public Class ClassWindream
Catch ex As Exception
' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt
End Try
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei wurde gespeichert / Unlock wurde durchgeführt", False)
+ LOGGER.Info(" ...Datei wurde gespeichert / Unlock wurde durchgeführt")
' wenn bis hierher alles geklappt hat wurde ein Dokumenttyp übergeben
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp: " & _WDObjekttyp, False)
+ LOGGER.Info(" ...Objekttyp: " & _WDObjekttyp)
' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden
Dim indexe As String = ""
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexname: '" & _Indexname & "'", False)
+ LOGGER.Info(" ...Indexname: '" & _Indexname & "'")
Dim werte = New ArrayList
If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Es handelt sich um ein Vektor-Feld", False)
+ LOGGER.Info(" ...Es handelt sich um ein Vektor-Feld")
'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Wert vor Überprüfung: " & _Value, False)
+ LOGGER.Info(" ...Wert vor Überprüfung: " & _Value)
_Value = CheckIndexValue(_Value)
'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then
Return False
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Value für Indexierung: " & _Value, False)
+ LOGGER.Info(" ...Value für Indexierung: " & _Value)
werte.Add(_Value)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Werte zu Array hinzugefügt!", False)
+ LOGGER.Info(" ...Werte zu Array hinzugefügt!")
Else
'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Value vor Überprüfung: " & _Value, False)
+ LOGGER.Info(" ...Value vor Überprüfung: " & _Value)
_Value = CheckIndexValue(_Value)
'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then
Return False
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Value für Indexierung: " & _Value, False)
+ LOGGER.Info(" ...Value für Indexierung: " & _Value)
werte.Add(_Value)
End If
@@ -940,8 +799,9 @@ Public Class ClassWindream
Return RunIndexing(WMObject, arrIndex, arrValue)
Catch ex As Exception
- ClassLogger.Add("Hinweis: Die Datei " & WD_File & " konnte nicht indexiert werden.")
- ClassLogger.Add("Fehler: " & ex.Message)
+ LOGGER.Info("Hinweis: Die Datei " & WD_File & " konnte nicht indexiert werden.")
+ LOGGER.Error(ex.Message)
+ LOGGER.Info("Fehler: " & ex.Message)
' Me.TreeNodeInfos.Add(temp)
Return False
End Try
@@ -955,16 +815,16 @@ Public Class ClassWindream
Dim i As Integer = 0
Dim indexname As String
If aValues.Length = 1 And aValues(0) = "" Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexwert ist leer/Nothing - Keine Nachindexierung", False)
+ LOGGER.Info(" ...Indexwert ist leer/Nothing - Keine Nachindexierung")
End If
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If oDocument.aObjectType.aName <> _WDObjekttyp Then
' ihr den entsprechenden Dokumenttyp zuweisen
- oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+ oDocument.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.", False)
+ LOGGER.Info(" ...Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.")
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False)
+ LOGGER.Info(" ...Objekttyp war bereits gesetzt")
End If
Try
@@ -979,11 +839,11 @@ Public Class ClassWindream
For Each aName As String In Indizes
indexname = aName
If LogErrorsOnly = False Then
- ClassLogger.Add(" ", False)
- ClassLogger.Add(" >> Indexierung von Index '" & indexname & "'", False)
+ LOGGER.Info(" ")
+ LOGGER.Info(" >> Indexierung von Index '" & indexname & "'")
End If
' das entsprechende Attribut aus windream auslesen
- Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
+ Dim oAttribute = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
' den Variablentyp (String, Integer, ...) auslesen
Dim vType = oAttribute.getVariableValue("dwAttrType")
' wenn in aValues an Position i ein Wert steht
@@ -1006,45 +866,45 @@ Public Class ClassWindream
Select Case (vType)
'Case WMObjectVariableValueTypeUndefined
Case WMObjectVariableValueTypeString
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeString", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeString")
convertValue = CStr(value)
Case WMObjectVariableValueTypeInteger
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
value = value.ToString.Replace(" ", "")
If IsNumeric(value) = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!", False)
+ LOGGER.Info(" ...Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!")
End If
value = value.ToString.Replace(" ", "")
convertValue = CInt(value)
_int = True
Case WMObjectVariableValueTypeFloat
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
value = value.ToString.Replace(" ", "")
convertValue = CDbl(value)
Case WMObjectVariableValueTypeFixedPoint
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint")
value = value.ToString.Replace(" ", "")
convertValue = CDbl(value)
_dbl = True
Case WMObjectVariableValueTypeBoolean
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeBoolean")
convertValue = CBool(value)
_bool = True
Case WMObjectVariableValueTypeDate
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeDate", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeDate")
_date = True
'Dim _date As Date = value
convertValue = value
Case WMObjectVariableValueTypeTimeStamp
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp")
convertValue = value
Case WMObjectVariableValueTypeCurrency
- If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False)
+ LOGGER.Info(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency")
'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
convertValue = aValueWrapper
Case WMObjectVariableValueTypeTime
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTime", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTime")
'If ((value)) Then
' convertValue = CDate(value)
'Else
@@ -1053,57 +913,57 @@ Public Class ClassWindream
'Dim _date As Date = value
convertValue = convertValue '*_date.ToShortTimeString
Case WMObjectVariableValueTypeFloat
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
convertValue = CStr(value)
Case WMObjectVariableValueTypeVariant
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeVariant")
convertValue = CStr(value)
Case WMObjectVariableValueTypeFulltext
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext")
convertValue = CStr(value)
Case 4097
vektor = True
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: 4097 Vektor alphanumerisch")
'Vektor alphanumerisch
convertValue = CStr(value)
Case 4098
vektor = True
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4098 Vektor Numerisch", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: 4098 Vektor Numerisch")
'Vektor Numerisch
convertValue = CStr(value)
Case 4099
vektor = True
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl")
'Vektor Kommazahl
convertValue = CStr(value)
Case 4101
vektor = True
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4101 Vektor Date", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: 4101 Vektor Date")
'Vektor Kommazahl
convertValue = CStr(value)
Case 4103
vektor = True
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4103 Vektor DateTime", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: 4103 Vektor DateTime")
'Vektor DateTime
convertValue = CStr(value)
Case 4107
vektor = True
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4107 Integer 64bit", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: 4107 Integer 64bit")
convertValue = CStr(value)
Case 36865
vektor = True
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
+ LOGGER.Info(" ...Typ des windream-Indexes: 36865 Vektor alphanumerisch")
'Vektor Kommazahl
convertValue = CStr(value)
Case Else
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes konnte nicht bestimmt werden!", False)
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch des Auslesens (vType): " & vType)
+ LOGGER.Info(" ...Typ des windream-Indexes konnte nicht bestimmt werden!")
+ LOGGER.Info(" ...Versuch des Auslesens (vType): " & vType)
'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
convertValue = ""
End Select
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Konvertierter Wert: '" & convertValue.ToString & "'", False)
+ LOGGER.Info(" ...Konvertierter Wert: '" & convertValue.ToString & "'")
End If
End If
'############################################################################################
@@ -1111,7 +971,7 @@ Public Class ClassWindream
'############################################################################################
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False)
+ LOGGER.Info(" ...Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")")
If _int = True Then
convertValue = convertValue.ToString.Replace(" ", "")
oDocument.SetVariableValue(aName, CInt(convertValue))
@@ -1129,15 +989,15 @@ Public Class ClassWindream
oDocument.Save()
If LogErrorsOnly = False Then
- ClassLogger.Add(" ...Index '" & aName & "' wurde geschrieben", False)
- ClassLogger.Add("", False)
+ LOGGER.Info(" ...Index '" & aName & "' wurde geschrieben")
+ LOGGER.Info("")
End If
Else
- ClassLogger.Add(" >> Kein Indexwert vorhanden", False)
+ LOGGER.Info(" >> Kein Indexwert vorhanden")
End If
Else
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
- If LogErrorsOnly = False Then ClassLogger.Add(" >> VEKTORFELD: Vorbereiten des Arrays", False)
+ LOGGER.Info(" >> VEKTORFELD: Vorbereiten des Arrays")
Dim myArray()
@@ -1149,7 +1009,7 @@ Public Class ClassWindream
Dim Anzahl As Integer = aValues.Length
'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 1 Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld wird mit EINEM Wert gefüllt ", False)
+ LOGGER.Info(" >> Vektorfeld wird mit EINEM Wert gefüllt ")
ReDim myArray(0)
Select Case vType
Case 36865
@@ -1181,12 +1041,12 @@ Public Class ClassWindream
End Select
'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert: " & myArray(0).ToString, False)
+ LOGGER.Info(" >> Konvertierter Wert: " & myArray(0).ToString)
Dim VektorArray()
'Immer anfügen
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Existing Vektorvalues", False)
+ LOGGER.Info(" >> Check Existing Vektorvalues")
Dim indicies As New List(Of Object)
@@ -1212,14 +1072,14 @@ Public Class ClassWindream
'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray)
'myArray)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR mit einem Wert erfolgreich", False)
+ LOGGER.Info(" >> 'SetVariableValue' für VEKTOR mit einem Wert erfolgreich")
'Die Änderungen festsschreiben/speichern
oDocument.Save()
End If
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld wird mit MEHREREN Werten gefüllt ", False)
+ LOGGER.Info(" >> Vektorfeld wird mit MEHREREN Werten gefüllt ")
' das ausgewählte Profil in _selectedProfile laden
@@ -1229,10 +1089,10 @@ Public Class ClassWindream
'Die Datatable durchlaufen und Werte für den Index in Array schreiben
For Each obj In myArray
myArray(i1) = CStr(obj)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Wert (" & i1 & ") aus Datatable: '" & myArray(i1).ToString & "'", False)
+ LOGGER.Info(" >> Wert (" & i1 & ") aus Datatable: '" & myArray(i1).ToString & "'")
i1 = i1 + 1
Next
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Array wurde erfolgreich erzeugt", False)
+ LOGGER.Info(" >> Array wurde erfolgreich erzeugt")
Dim VektorArray()
@@ -1269,28 +1129,29 @@ Public Class ClassWindream
'Die Größe des Arrays festlegen
myArray(i1) = CStr(myArray(0))
End Select
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert (" & i1 & ") : '" & myArray(i1).ToString & "'", False)
+ LOGGER.Info(" >> Konvertierter Wert (" & i1 & ") : '" & myArray(i1).ToString & "'")
i1 += 1
Next
'Jetzt die Nachindexierung für Vektor-Felder
Try
oDocument.SetVariableValue(aName, myArray)
Catch ex As Exception
- ClassLogger.Add("RunIndexing -Unexpected error in indexing Vectorfield: " & ex.Message, True)
+ LOGGER.Info("RunIndexing -Unexpected error in indexing Vectorfield: " & ex.Message)
+ LOGGER.Error(ex.Message)
oDocument.Save()
oDocument.unlock()
Return False
End Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR erfolgreich", False)
+ LOGGER.Info(" >> 'SetVariableValue' für VEKTOR erfolgreich")
' oDocument.LockRights()
'Die Änderungen festsschreiben/speichern
oDocument.Save()
- If LogErrorsOnly = False Then ClassLogger.Add(">> Indexierung erfolgreich beendet (Save ...", False)
+ LOGGER.Info(">> Indexierung erfolgreich beendet (Save ...")
Else
- ClassLogger.Add(" - Achtung: VektorArray Is NOTHING", False)
+ LOGGER.Info(" - Achtung: VektorArray Is NOTHING")
oDocument.Save()
Return True
End If
@@ -1303,18 +1164,19 @@ Public Class ClassWindream
Next
oDocument.unlock()
If LogErrorsOnly = False Then
- ClassLogger.Add(">> ...und Unlock durchgeführt)", False)
- ClassLogger.Add("", False)
+ LOGGER.Info(">> ...und Unlock durchgeführt)")
+ LOGGER.Info("")
End If
Return True
Else
- ClassLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False)
+ LOGGER.Info(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
'oDocument.unlock()
Return False
End If
End If
Catch ex As Exception
- ClassLogger.Add("ClassNiWindream.RunIndexing: " & ex.Message)
+ LOGGER.Info("ClassNiWindream.RunIndexing: " & ex.Message)
+ LOGGER.Error(ex.Message)
oDocument.Save()
oDocument.unlock()
Return False
@@ -1331,7 +1193,7 @@ Public Class ClassWindream
'Nochmals prüfen ob wirklich Array
If wertWD.GetType.ToString.Contains("System.Object") Then
'Keine Duplikatprüfung also einfach neues Array füllen
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Duplikatprüfung soll durchgeführt werden.", False)
+ LOGGER.Info(" >> Duplikatprüfung soll durchgeführt werden.")
'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD
If WDValue Is Nothing = False Then
@@ -1352,14 +1214,14 @@ Public Class ClassWindream
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
Else
- ClassLogger.Add(" >> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten", False)
+ LOGGER.Info(" >> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
End If
End If
Next
End If
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld ist noch leer....", False)
+ LOGGER.Info(" >> Vektorfeld ist noch leer....")
'Den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
@@ -1372,7 +1234,7 @@ Public Class ClassWindream
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
Else
- ClassLogger.Add(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten", False)
+ LOGGER.Info(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten")
End If
Else 'Dererste Wert, also hinzufügen
'Das Array anpassen
@@ -1389,7 +1251,8 @@ Public Class ClassWindream
Return ValueArray
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in ClassWindream.Return_VektorArray: " & ex.Message, True)
+ LOGGER.Info("Unexpected Error in ClassWindream.Return_VektorArray: " & ex.Message)
+ LOGGER.Error(ex.Message)
End Try
@@ -1423,7 +1286,7 @@ Public Class ClassWindream
''' Liefert True wenn das Indexieren erfolgreich war, sonst False
'''
Public Shared Function Indexiere(ByVal filenameZiel As String, ByVal index As String, ByVal werte As Object) As Boolean
- If LogErrorsOnly = False Then ClassLogger.Add(" - In Indexierungsvorgang für: " & filenameZiel, False)
+ LOGGER.Info(" - In Indexierungsvorgang für: " & filenameZiel)
Try
Dim WMObject As WINDREAMLib.WMObject = Nothing '= CreateObject("WINDREAMLib.WMObject") '= New WINDREAMLib.WMObject 'CreateObject("WINDREAMLib.WMObject")
'MsgBox("Indexiere: " & vbNewLine & filenameZiel)
@@ -1434,7 +1297,7 @@ Public Class ClassWindream
index Is Nothing Or
index = "" Or
Not ExistIndexInObjekttyp(_WDObjekttyp, index) Then
- If LogErrorsOnly = False Then ClassLogger.Add("=> Hinweis: Die Datei wurde auf Grund eines Problems in der Initialisierung nicht vollständig indexiert.", False)
+ LOGGER.Info("=> Hinweis: Die Datei wurde auf Grund eines Problems in der Initialisierung nicht vollständig indexiert.")
Return False
End If
@@ -1449,13 +1312,13 @@ Public Class ClassWindream
fileExists = False
Exit Do
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" Achtung: Datei exisitiert noch nicht: " & My.Computer.Clock.LocalTime, True)
+ LOGGER.Info(" Achtung: Datei exisitiert noch nicht: " & My.Computer.Clock.LocalTime)
End If
an = an + 1
Loop
' wenn die Datei existiert
If fileExists Then
- WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
+ WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
' eine Variable für den umgewandelten Indexwert anlegen (kein Typ, da noch unklar ist was reingeschrieben wird)
'Dim convertValue = Nothing
@@ -1466,10 +1329,10 @@ Public Class ClassWindream
Try
' ein windream-Objekt der Datei anlegen
- WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
+ WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
If LogErrorsOnly = False Then
- ClassLogger.Add(" - windream-Objekt der Datei erzeugt", False)
- ClassLogger.Add(" - Ziel: W:\" & filenameZiel, False)
+ LOGGER.Info(" - windream-Objekt der Datei erzeugt")
+ LOGGER.Info(" - Ziel: W:\" & filenameZiel)
End If
'Me.singleInfoNode.Add("Ziel: " & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel)
@@ -1486,7 +1349,7 @@ Public Class ClassWindream
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If WMObject.aObjectType.aName = "Standard" Then
' ihr den entsprechenden Dokumenttyp zuweisen
- WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+ WMObject.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
End If
@@ -1509,9 +1372,9 @@ Public Class ClassWindream
' wenn es sich bei dem Index NICHT um ein Vektorfeld handelt
If TypDesIndexes < WMObjectVariableValueTypeVector Then
- If LogErrorsOnly = False Then ClassLogger.Add(" - Bei dem Zielindex handelt es sich um einen Einzelindex.", False)
+ LOGGER.Info(" - Bei dem Zielindex handelt es sich um einen Einzelindex.")
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" Bei dem Zielindex handelt es sich um ein Vektorfeld.", False)
+ LOGGER.Info(" Bei dem Zielindex handelt es sich um ein Vektorfeld.")
' ein Backup der Indexwerte anlegen
Dim temp As Object = werte
' und die eigendliche Variable zurücksetzen
@@ -1519,17 +1382,18 @@ Public Class ClassWindream
' dann soll nur der letzte Wert des Arrays übernommen werden, damit nicht versucht wird ein
' Array in einen Einzelindex zu speichern
werte = temp
- If LogErrorsOnly = False Then ClassLogger.Add(" - Array geleert und erneuert!", False)
+ LOGGER.Info(" - Array geleert und erneuert!")
End If
Catch ex As Exception
- ClassLogger.Add("Hinweis: Beim Initialisieren der Datei auf dem windream-Laufwerk ist ein Fehler aufgetreten.", False)
+ LOGGER.Info("Hinweis: Beim Initialisieren der Datei auf dem windream-Laufwerk ist ein Fehler aufgetreten.")
+ LOGGER.Error(ex.Message)
Return False
End Try
'Try
' den Typ des Zielindexes
- If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des Indexes: " & TypDesIndexes.ToString, False)
+ LOGGER.Info(" - Typ des Indexes: " & TypDesIndexes.ToString)
Select Case (TypDesIndexes)
Case WMObjectVariableValueTypeUndefined ' zu klären !!!!
'convertValue = vbEmpty
@@ -1538,7 +1402,7 @@ Public Class ClassWindream
'If werte.ToString.StartsWith("0") Then
' Dim wert As String = CStr(CInt(werte.ToString))
' convertValue = wert
- ' ClassLogger.Add(" - Führende Nullen wurden entfernt", False)
+ ' LOGGER.Info(" - Führende Nullen wurden entfernt")
'Else
' Dim wert As String = CStr(CInt(werte.ToString))
' convertValue = wert
@@ -1618,7 +1482,7 @@ Public Class ClassWindream
Case Else
' wenn es sich um einen TypVektorIndex handelt
If TypDesIndexes >= 4096 And TypDesIndexes < 8192 Then
- If LogErrorsOnly = False Then ClassLogger.Add("- Es handelt sich um einen Vektorindex", False)
+ LOGGER.Info("- Es handelt sich um einen Vektorindex")
'Dim temp_arr As New ArrayList
Dim arrayIndex = 0
@@ -1633,7 +1497,7 @@ Public Class ClassWindream
Select Case (TypDesIndexes - WMObjectVariableValueTypeVector)
'VektorIndex vom Typ String 64'
Case 1
- If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ String 1", False)
+ LOGGER.Info("- VektorIndex vom Typ String 1")
For Each wert As Object In werte
'Führende Nullen Entfernen
@@ -1641,7 +1505,7 @@ Public Class ClassWindream
Dim werteString As String = CStr(CInt(wert.ToString))
wert = werteString
temp_arr(arrayIndex) = CStr(wert)
- ClassLogger.Add("- Führende Nullen wurden entfernt", False)
+ LOGGER.Info("- Führende Nullen wurden entfernt")
Else
temp_arr(arrayIndex) = CStr(wert)
@@ -1649,30 +1513,30 @@ Public Class ClassWindream
arrayIndex = arrayIndex + 1
- If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False)
+ LOGGER.Info("- Wert " & CStr(wert) & " konvertiert")
Next
Case WMObjectVariableValueTypeUndefined
' convertValue = ""
Case WMObjectVariableValueTypeString
- If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ String 2", False)
+ LOGGER.Info("- VektorIndex vom Typ String 2")
For Each wert As Object In werte
'Führende Nullen Entfernen
If werte.ToString.StartsWith("0") Then
wert = CInt(wert)
temp_arr(arrayIndex) = CStr(wert)
- ClassLogger.Add("- Führende Nullen wurden entfernt", False)
+ LOGGER.Info("- Führende Nullen wurden entfernt")
Else
temp_arr(arrayIndex) = CStr(wert)
End If
arrayIndex = arrayIndex + 1
- If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False)
+ LOGGER.Info("- Wert " & CStr(wert) & " konvertiert")
Next
Case WMObjectVariableValueTypeInteger
- If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ Integer", False)
+ LOGGER.Info("- VektorIndex vom Typ Integer")
For Each wert As Object In werte
temp_arr(arrayIndex) = CInt(wert)
arrayIndex = arrayIndex + 1
@@ -1735,7 +1599,7 @@ Public Class ClassWindream
werte = temp_arr
- If LogErrorsOnly = False Then ClassLogger.Add("- Werte erfolgreich konvertiert", False)
+ LOGGER.Info("- Werte erfolgreich konvertiert")
Else
' convertValue = vbEmpty
End If
@@ -1744,7 +1608,7 @@ Public Class ClassWindream
'Catch ex As Exception
' ' einen Hinweis über einen aufgetretenen Fehler an das Array für den TreeView-Log anhängen
- ' ClassLogger.Add("Unexpected error in Auswerten/Konvertieren des Typs!", ex.Message)
+ ' LOGGER.Info("Unexpected error in Auswerten/Konvertieren des Typs!", ex.Message)
' ' die Indexierungsinformationen für den TreeView-Log zurückgeben
' Return False
'End Try
@@ -1758,21 +1622,21 @@ Public Class ClassWindream
' den konvertierten Indexwert dem entsprechenden Index zuweisen
WMObject.SetVariableValue(index, werte)
If LogErrorsOnly = False Then
- ClassLogger.Add(" - den konvertierten Indexwert dem entsprechenden Index zuweisen", False)
- ClassLogger.Add(" - Indexname: " & index.ToString, False)
- ClassLogger.Add(" - Indexwert: " & werte.ToString, False)
+ LOGGER.Info(" - den konvertierten Indexwert dem entsprechenden Index zuweisen")
+ LOGGER.Info(" - Indexname: " & index.ToString)
+ LOGGER.Info(" - Indexwert: " & werte.ToString)
End If
'End If
' die Indexinformationen des Dokuments speichern
WMObject.Save()
- If LogErrorsOnly = False Then ClassLogger.Add(" - die Indexinformationen des Dokuments speichern", False)
+ LOGGER.Info(" - die Indexinformationen des Dokuments speichern")
' Unlock in einem unbehandelten Try-Block um Fehler abzufangen,
' wenn eine Datei nicht gesperrt ist
Try
' die Sperrung des Dokuments aufheben
WMObject.unlock()
- If LogErrorsOnly = False Then ClassLogger.Add(" - die Sperrung des Dokuments aufheben", False)
+ LOGGER.Info(" - die Sperrung des Dokuments aufheben")
Catch ex As Exception
' nichts tun (Datei war nicht gesperrt)
@@ -1782,12 +1646,13 @@ Public Class ClassWindream
Return True
Else
' die Indexierungsinformationen für den TreeView-Log zurückgeben
- ClassLogger.Add(" Hinweis: Die Datei hat zum Zeitpunkt der Indexierung noch nicht auf dem windream-Laufwerk existiert.", False)
+ LOGGER.Info(" Hinweis: Die Datei hat zum Zeitpunkt der Indexierung noch nicht auf dem windream-Laufwerk existiert.")
End If
Catch ex As Exception
- ClassLogger.Add(" Hinweis: Unbekannter Unexpected error inm Indexieren der Datei.")
- ClassLogger.Add(ex.Message)
+ LOGGER.Info(" Hinweis: Unbekannter Unexpected error inm Indexieren der Datei.")
+ LOGGER.Error(ex.Message)
+ LOGGER.Info(ex.Message)
End Try
Return True
@@ -1865,7 +1730,7 @@ Public Class ClassWindream
'''
Public Shared Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
Try
- Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+ Dim oAttribute = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
Dim vType = oAttribute.getVariableValue("dwAttrType")
Return vType
Catch ex As Exception
@@ -1886,7 +1751,8 @@ Public Class ClassWindream
Return input
Catch ex As Exception
- ClassLogger.Add("Fehler in CheckIndexValue: " & ex.Message)
+ LOGGER.Info("Fehler in CheckIndexValue: " & ex.Message)
+ LOGGER.Error(ex.Message)
Return Nothing
End Try
diff --git a/Global_Indexer/Global_Indexer.vbproj b/Global_Indexer/Global_Indexer.vbproj
index ca9c5e4..0d8d430 100644
--- a/Global_Indexer/Global_Indexer.vbproj
+++ b/Global_Indexer/Global_Indexer.vbproj
@@ -170,8 +170,9 @@
False
P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll
-
- P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\14_11_19_MIME_UTF_ENCODING\Independentsoft.Msg.dll
+
+ False
+ P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll
P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll
@@ -230,7 +231,9 @@
+
+
@@ -375,12 +378,6 @@
Form
-
- frmUserKonfig_AddUsers.vb
-
-
- Form
-
@@ -545,12 +542,6 @@
frmStart.vb
-
- frmUserKonfig_AddUsers.vb
-
-
- frmUserKonfig_AddUsers.vb
-
VbMyResourcesResXFileCodeGenerator
diff --git a/Global_Indexer/Global_Indexer.vbproj.bak b/Global_Indexer/Global_Indexer.vbproj.bak
deleted file mode 100644
index e4fd5a4..0000000
--- a/Global_Indexer/Global_Indexer.vbproj.bak
+++ /dev/null
@@ -1,779 +0,0 @@
-
-
-
-
- Debug
- AnyCPU
- {7474B1D2-49A4-4D12-B544-C8674D3F7231}
- WinExe
- Global_Indexer.My.MyApplication
- Global_Indexer
- Global_Indexer
- 512
- WindowsForms
- v4.6.1
- true
- publish\
- true
- Disk
- false
- Foreground
- 7
- Days
- false
- false
- true
- 0
- 1.0.0.%2a
- false
- false
- true
-
-
-
- AnyCPU
- true
- full
- true
- true
- bin\Debug\
- Global_Indexer.xml
- 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
-
-
- AnyCPU
- pdbonly
- false
- true
- true
- bin\Release\
- Global_Indexer.xml
- 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
-
-
- On
-
-
- Text
-
-
- Off
-
-
- On
-
-
- DD_Icons_ICO_GLOBIX_128.ico
-
-
- My Project\app.manifest
-
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- False
-
-
- ..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll
-
-
- ..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll
-
-
- ..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Filesystem.dll
-
-
- ..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll
-
-
- False
- P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll
-
-
- False
- P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll
-
-
- P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll
- False
-
-
- P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll
- True
-
-
- False
- ..\packages\NLog.4.5.11\lib\net45\NLog.dll
-
-
- P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- AboutBox1.vb
-
-
- Form
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- frmAdministration.vb
-
-
- Form
-
-
- frmConfig_Basic.vb
-
-
- Form
-
-
- frmConnections.vb
-
-
- Form
-
-
- frmHistory.vb
-
-
- Form
-
-
- frmHotKey_Add.vb
-
-
- Form
-
-
- frmHotkey_User.vb
-
-
- Form
-
-
- frmIndex.vb
-
-
- Form
-
-
- frmIndexFileList.vb
-
-
- Form
-
-
- frmLicense.vb
-
-
- Form
-
-
- frmLookupGrid.vb
-
-
- Form
-
-
- frmMissingInput.vb
-
-
- Form
-
-
- frmNamenkonvention.vb
-
-
- Form
-
-
- frmSplash.vb
-
-
- Form
-
-
- frmSQL-Result.vb
-
-
- Form
-
-
- frmSQLConfigAutoIndex.vb
-
-
- Form
-
-
- frmSQLSuggestion.vb
-
-
- Form
-
-
- frmSQL_Admin.vb
-
-
- Form
-
-
- frmStart.vb
-
-
- Form
-
-
- frmTestvb.vb
-
-
- Form
-
-
- frmUserKonfig_AddUsers.vb
-
-
- Form
-
-
-
-
-
-
-
- True
- Application.myapp
-
-
- True
- True
- Resources.resx
-
-
- True
- Settings.settings
- True
-
-
- True
- True
- MyDataset.xsd
-
-
- MyDataset.xsd
-
-
- _frmLicense.en-US.resx
- True
- True
-
-
- True
- True
- _frmLicense.resx
-
-
-
-
- AboutBox1.vb
-
-
- frmAdministration.vb
-
-
- frmAdministration.vb
-
-
- frmConfig_Basic.vb
-
-
- frmConfig_Basic.vb
-
-
- frmConfig_Basic.vb
-
-
- frmConfig_Basic.vb
-
-
- frmConnections.vb
-
-
- frmConnections.vb
-
-
- frmHistory.vb
-
-
- frmHistory.vb
-
-
- frmHotKey_Add.vb
-
-
- frmHotkey_User.vb
-
-
- frmHotkey_User.vb
-
-
- frmIndex.vb
-
-
- frmIndex.vb
- Designer
-
-
- frmIndexFileList.vb
-
-
- frmIndexFileList.vb
-
-
- frmLicense.vb
-
-
- frmLicense.vb
-
-
- frmLookupGrid.vb
-
-
- frmMissingInput.vb
-
-
- frmMissingInput.vb
-
-
- frmNamenkonvention.vb
-
-
- frmNamenkonvention.vb
-
-
- frmSplash.vb
-
-
- frmSQL-Result.vb
-
-
- frmSQL-Result.vb
-
-
- frmSQLConfigAutoIndex.vb
-
-
- frmSQLConfigAutoIndex.vb
-
-
- frmSQLSuggestion.vb
-
-
- frmSQLSuggestion.vb
-
-
- frmSQL_Admin.vb
-
-
- frmSQL_Admin.vb
-
-
- frmStart.vb
-
-
- frmStart.vb
-
-
- frmStart.vb
-
-
- frmStart.vb
-
-
- frmStart.vb
-
-
- frmUserKonfig_AddUsers.vb
-
-
- frmUserKonfig_AddUsers.vb
-
-
-
- VbMyResourcesResXFileCodeGenerator
- Resources.Designer.vb
- My.Resources
- Designer
-
-
- ResXFileCodeGenerator
- _frmLicense.en-US.Designer.vb
- My.Resources
-
-
- My.Resources
- ResXFileCodeGenerator
- _frmLicense.Designer.vb
-
-
-
-
-
- MyApplicationCodeGenerator
- Application.Designer.vb
-
-
- SettingsSingleFileGenerator
- My
- Settings.Designer.vb
-
-
-
- MyDataset.xsd
-
-
- Designer
- MSDataSetGenerator
- MyDataset.Designer.vb
-
-
- MyDataset.xsd
-
-
-
-
- {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}
- 2
- 7
- 0
- primary
- False
- True
-
-
- {00062FFF-0000-0000-C000-000000000046}
- 9
- 5
- 0
- primary
- False
- True
-
-
- {00020430-0000-0000-C000-000000000046}
- 2
- 0
- 0
- primary
- False
- True
-
-
- {25B51999-6DCA-11D4-B815-00104BB52DEA}
- 1
- 0
- 0
- tlbimp
- False
- True
-
-
- {BE4F1D13-88A8-11D4-B3FA-0001021F035F}
- 1
- 0
- 0
- tlbimp
- False
- True
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Always
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- False
- .NET Framework 3.5 SP1
- false
-
-
-
-
-
\ No newline at end of file
diff --git a/Global_Indexer/My Project/AssemblyInfo.vb b/Global_Indexer/My Project/AssemblyInfo.vb
index e83e18e..b4ec23b 100644
--- a/Global_Indexer/My Project/AssemblyInfo.vb
+++ b/Global_Indexer/My Project/AssemblyInfo.vb
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
'
-
+
\ No newline at end of file
diff --git a/Global_Indexer/My Project/Settings.Designer.vb b/Global_Indexer/My Project/Settings.Designer.vb
index f4ca914..b4c1009 100644
--- a/Global_Indexer/My Project/Settings.Designer.vb
+++ b/Global_Indexer/My Project/Settings.Designer.vb
@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
_
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -57,123 +57,13 @@ Namespace My
_
+ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _
+ "rity Info=True;User ID=sa;Password=dd")> _
Public ReadOnly Property DD_ECMConnectionString() As String
Get
Return CType(Me("DD_ECMConnectionString"),String)
End Get
End Property
-
- _
- Public Property SplitterDistance_Viewer() As Integer
- Get
- Return CType(Me("SplitterDistance_Viewer"),Integer)
- End Get
- Set
- Me("SplitterDistance_Viewer") = value
- End Set
- End Property
-
- _
- Public Property WDSearch_maximized() As Boolean
- Get
- Return CType(Me("WDSearch_maximized"),Boolean)
- End Get
- Set
- Me("WDSearch_maximized") = value
- End Set
- End Property
-
- _
- Public Property Show_IndexResult() As Boolean
- Get
- Return CType(Me("Show_IndexResult"),Boolean)
- End Get
- Set
- Me("Show_IndexResult") = value
- End Set
- End Property
-
- _
- Public Property DoNot_Show_Documents() As Boolean
- Get
- Return CType(Me("DoNot_Show_Documents"),Boolean)
- End Get
- Set
- Me("DoNot_Show_Documents") = value
- End Set
- End Property
-
- _
- Public ReadOnly Property Test() As String
- Get
- Return CType(Me("Test"),String)
- End Get
- End Property
-
- _
- Public Property AppTerminate() As Boolean
- Get
- Return CType(Me("AppTerminate"),Boolean)
- End Get
- Set
- Me("AppTerminate") = value
- End Set
- End Property
-
- _
- Public Property DA_Vorauswahlaktiv() As Boolean
- Get
- Return CType(Me("DA_Vorauswahlaktiv"),Boolean)
- End Get
- Set
- Me("DA_Vorauswahlaktiv") = value
- End Set
- End Property
-
- _
- Public Property REGEX_Replace() As String
- Get
- Return CType(Me("REGEX_Replace"),String)
- End Get
- Set
- Me("REGEX_Replace") = value
- End Set
- End Property
-
- _
- Public Property FilenameTest() As String
- Get
- Return CType(Me("FilenameTest"),String)
- End Get
- Set
- Me("FilenameTest") = value
- End Set
- End Property
End Class
End Namespace
diff --git a/Global_Indexer/My Project/Settings.settings b/Global_Indexer/My Project/Settings.settings
index 81052ba..f591f97 100644
--- a/Global_Indexer/My Project/Settings.settings
+++ b/Global_Indexer/My Project/Settings.settings
@@ -5,37 +5,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_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString>
+ <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;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_TEST;Persist Security Info=True;User ID=sa;Password=dd
-
-
- 526
-
-
- True
-
-
- True
-
-
- False
-
-
- DigitalData\windream_CLIENT_WMCC_Neustart
-
-
- False
-
-
- False
-
-
-
-
-
- myFilename.pdf
+ Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd
\ No newline at end of file
diff --git a/Global_Indexer/My Project/licenses.licx b/Global_Indexer/My Project/licenses.licx
index ef23e17..39aab7c 100644
--- a/Global_Indexer/My Project/licenses.licx
+++ b/Global_Indexer/My Project/licenses.licx
@@ -1,3 +1,9 @@
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb
index 9dec06d..7c9f9a2 100644
--- a/Global_Indexer/MyDataset.Designer.vb
+++ b/Global_Indexer/MyDataset.Designer.vb
@@ -53,14 +53,10 @@ Partial Public Class MyDataset
Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable
- Private tableTBDD_GROUPS As TBDD_GROUPSDataTable
-
Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable
Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable
- Private tableVWGI_DOCTYPE_GROUP As VWGI_DOCTYPE_GROUPDataTable
-
Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable
Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable
@@ -95,8 +91,6 @@ Partial Public Class MyDataset
Private relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 As Global.System.Data.DataRelation
- Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation
-
Private relationFK_TBDD_GROUPS_USER_USER_ID As Global.System.Data.DataRelation
Private relationFK_TBDD_INDEX_MAN_DAID As Global.System.Data.DataRelation
@@ -120,7 +114,7 @@ Partial Public Class MyDataset
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.BeginInit
@@ -132,7 +126,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
@@ -188,18 +182,12 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWHDD_INDEX_MAN")) Is Nothing) Then
MyBase.Tables.Add(New TBWHDD_INDEX_MANDataTable(ds.Tables("TBWHDD_INDEX_MAN")))
End If
- If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then
- MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS")))
- End If
If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER")))
End If
If (Not (ds.Tables("VWGI_USER_GROUPS_RELATION")) Is Nothing) Then
MyBase.Tables.Add(New VWGI_USER_GROUPS_RELATIONDataTable(ds.Tables("VWGI_USER_GROUPS_RELATION")))
End If
- If (Not (ds.Tables("VWGI_DOCTYPE_GROUP")) Is Nothing) Then
- MyBase.Tables.Add(New VWGI_DOCTYPE_GROUPDataTable(ds.Tables("VWGI_DOCTYPE_GROUP")))
- End If
If (Not (ds.Tables("TBHOTKEY_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New TBHOTKEY_PROFILEDataTable(ds.Tables("TBHOTKEY_PROFILE")))
End If
@@ -254,7 +242,7 @@ Partial Public Class MyDataset
End Sub
_
Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable
@@ -264,7 +252,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable
@@ -274,7 +262,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBDD_EINGANGSARTEN() As TBDD_EINGANGSARTENDataTable
@@ -284,7 +272,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBDD_DOKART_MODULE() As TBDD_DOKART_MODULEDataTable
@@ -294,7 +282,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBDD_MODULES() As TBDD_MODULESDataTable
@@ -304,7 +292,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBDD_INDEX_MAN() As TBDD_INDEX_MANDataTable
@@ -314,7 +302,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
@@ -324,7 +312,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property VWDDINDEX_MAN() As VWDDINDEX_MANDataTable
@@ -334,7 +322,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property VWDDINDEX_AUTOM() As VWDDINDEX_AUTOMDataTable
@@ -344,7 +332,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable
@@ -354,7 +342,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBGI_CONFIGURATION() As TBGI_CONFIGURATIONDataTable
@@ -364,7 +352,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBGI_OBJECTTYPE_EMAIL_INDEX() As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable
@@ -374,7 +362,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBDD_INDEX_MAN_POSTPROCESSING() As TBDD_INDEX_MAN_POSTPROCESSINGDataTable
@@ -384,7 +372,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBWHDD_INDEX_MAN() As TBWHDD_INDEX_MANDataTable
@@ -394,17 +382,7 @@ Partial Public Class MyDataset
End Property
_
- Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable
- Get
- Return Me.tableTBDD_GROUPS
- End Get
- End Property
-
- _
Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable
@@ -414,7 +392,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property VWGI_USER_GROUPS_RELATION() As VWGI_USER_GROUPS_RELATIONDataTable
@@ -424,17 +402,7 @@ Partial Public Class MyDataset
End Property
_
- Public ReadOnly Property VWGI_DOCTYPE_GROUP() As VWGI_DOCTYPE_GROUPDataTable
- Get
- Return Me.tableVWGI_DOCTYPE_GROUP
- End Get
- End Property
-
- _
Public ReadOnly Property TBHOTKEY_PROFILE() As TBHOTKEY_PROFILEDataTable
@@ -444,7 +412,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBHOTKEY_PATTERNS() As TBHOTKEY_PATTERNSDataTable
@@ -454,7 +422,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBMYHOTKEYS() As TBMYHOTKEYSDataTable
@@ -464,7 +432,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBHOTKEY_USER_PROFILE() As TBHOTKEY_USER_PROFILEDataTable
@@ -474,7 +442,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBHOTKEY_PATTERNS_REWORK() As TBHOTKEY_PATTERNS_REWORKDataTable
@@ -484,7 +452,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBHOTKEY_WINDOW_HOOK() As TBHOTKEY_WINDOW_HOOKDataTable
@@ -494,7 +462,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBGI_FILES_USER() As TBGI_FILES_USERDataTable
@@ -504,7 +472,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBGI_HISTORY() As TBGI_HISTORYDataTable
@@ -514,7 +482,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBGI_REGEX_DOCTYPE() As TBGI_REGEX_DOCTYPEDataTable
@@ -524,7 +492,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBTempFiles2Index() As TBTempFiles2IndexDataTable
@@ -534,7 +502,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBTEMP_INDEXRESULTS() As TBTEMP_INDEXRESULTSDataTable
@@ -544,7 +512,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable
@@ -554,7 +522,7 @@ Partial Public Class MyDataset
End Property
_
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -567,7 +535,7 @@ Partial Public Class MyDataset
End Property
_
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
@@ -576,7 +544,7 @@ Partial Public Class MyDataset
End Property
_
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
@@ -585,7 +553,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
@@ -593,7 +561,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As MyDataset = CType(MyBase.Clone,MyDataset)
cln.InitVars
@@ -602,19 +570,19 @@ Partial Public Class MyDataset
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
@@ -662,18 +630,12 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWHDD_INDEX_MAN")) Is Nothing) Then
MyBase.Tables.Add(New TBWHDD_INDEX_MANDataTable(ds.Tables("TBWHDD_INDEX_MAN")))
End If
- If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then
- MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS")))
- End If
If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER")))
End If
If (Not (ds.Tables("VWGI_USER_GROUPS_RELATION")) Is Nothing) Then
MyBase.Tables.Add(New VWGI_USER_GROUPS_RELATIONDataTable(ds.Tables("VWGI_USER_GROUPS_RELATION")))
End If
- If (Not (ds.Tables("VWGI_DOCTYPE_GROUP")) Is Nothing) Then
- MyBase.Tables.Add(New VWGI_DOCTYPE_GROUPDataTable(ds.Tables("VWGI_DOCTYPE_GROUP")))
- End If
If (Not (ds.Tables("TBHOTKEY_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New TBHOTKEY_PROFILEDataTable(ds.Tables("TBHOTKEY_PROFILE")))
End If
@@ -725,7 +687,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@@ -734,13 +696,13 @@ Partial Public Class MyDataset
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable)
If (initTable = true) Then
@@ -826,12 +788,6 @@ Partial Public Class MyDataset
Me.tableTBWHDD_INDEX_MAN.InitVars
End If
End If
- Me.tableTBDD_GROUPS = CType(MyBase.Tables("TBDD_GROUPS"),TBDD_GROUPSDataTable)
- If (initTable = true) Then
- If (Not (Me.tableTBDD_GROUPS) Is Nothing) Then
- Me.tableTBDD_GROUPS.InitVars
- End If
- End If
Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable)
If (initTable = true) Then
If (Not (Me.tableTBDD_GROUPS_USER) Is Nothing) Then
@@ -844,12 +800,6 @@ Partial Public Class MyDataset
Me.tableVWGI_USER_GROUPS_RELATION.InitVars
End If
End If
- Me.tableVWGI_DOCTYPE_GROUP = CType(MyBase.Tables("VWGI_DOCTYPE_GROUP"),VWGI_DOCTYPE_GROUPDataTable)
- If (initTable = true) Then
- If (Not (Me.tableVWGI_DOCTYPE_GROUP) Is Nothing) Then
- Me.tableVWGI_DOCTYPE_GROUP.InitVars
- End If
- End If
Me.tableTBHOTKEY_PROFILE = CType(MyBase.Tables("TBHOTKEY_PROFILE"),TBHOTKEY_PROFILEDataTable)
If (initTable = true) Then
If (Not (Me.tableTBHOTKEY_PROFILE) Is Nothing) Then
@@ -927,7 +877,6 @@ Partial Public Class MyDataset
Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID")
Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID = Me.Relations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")
Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 = Me.Relations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")
- Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID")
Me.relationFK_TBDD_GROUPS_USER_USER_ID = Me.Relations("FK_TBDD_GROUPS_USER_USER_ID")
Me.relationFK_TBDD_INDEX_MAN_DAID = Me.Relations("FK_TBDD_INDEX_MAN_DAID")
Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID = Me.Relations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")
@@ -941,7 +890,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitClass()
Me.DataSetName = "MyDataset"
Me.Prefix = ""
@@ -976,14 +925,10 @@ Partial Public Class MyDataset
MyBase.Tables.Add(Me.tableTBDD_INDEX_MAN_POSTPROCESSING)
Me.tableTBWHDD_INDEX_MAN = New TBWHDD_INDEX_MANDataTable()
MyBase.Tables.Add(Me.tableTBWHDD_INDEX_MAN)
- Me.tableTBDD_GROUPS = New TBDD_GROUPSDataTable()
- MyBase.Tables.Add(Me.tableTBDD_GROUPS)
Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable()
MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER)
Me.tableVWGI_USER_GROUPS_RELATION = New VWGI_USER_GROUPS_RELATIONDataTable()
MyBase.Tables.Add(Me.tableVWGI_USER_GROUPS_RELATION)
- Me.tableVWGI_DOCTYPE_GROUP = New VWGI_DOCTYPE_GROUPDataTable()
- MyBase.Tables.Add(Me.tableVWGI_DOCTYPE_GROUP)
Me.tableTBHOTKEY_PROFILE = New TBHOTKEY_PROFILEDataTable()
MyBase.Tables.Add(Me.tableTBHOTKEY_PROFILE)
Me.tableTBHOTKEY_PATTERNS = New TBHOTKEY_PATTERNSDataTable()
@@ -1018,8 +963,6 @@ Partial Public Class MyDataset
Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID)
Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1", New Global.System.Data.DataColumn() {Me.tableTBWHDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, false)
Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1)
- Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false)
- Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID)
Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID)
Me.relationFK_TBDD_INDEX_MAN_DAID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_MAN_DAID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.DOK_IDColumn}, false)
@@ -1043,187 +986,175 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_USER() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_DOKART_MODULE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_MODULES() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_INDEX_MAN() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWDDINDEX_MAN() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWDDINDEX_AUTOM() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBGI_CONFIGURATION() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBGI_OBJECTTYPE_EMAIL_INDEX() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_INDEX_MAN_POSTPROCESSING() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBWHDD_INDEX_MAN() As Boolean
Return false
End Function
_
- Private Function ShouldSerializeTBDD_GROUPS() As Boolean
- Return false
- End Function
-
- _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWGI_USER_GROUPS_RELATION() As Boolean
Return false
End Function
_
- Private Function ShouldSerializeVWGI_DOCTYPE_GROUP() As Boolean
- Return false
- End Function
-
- _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBHOTKEY_PROFILE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBHOTKEY_PATTERNS() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBMYHOTKEYS() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBHOTKEY_USER_PROFILE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBHOTKEY_PATTERNS_REWORK() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBHOTKEY_WINDOW_HOOK() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBGI_FILES_USER() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBGI_HISTORY() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBGI_REGEX_DOCTYPE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBTempFiles2Index() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBTEMP_INDEXRESULTS() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBAD_Users() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
@@ -1231,7 +1162,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As MyDataset = New MyDataset()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@@ -1280,94 +1211,88 @@ Partial Public Class MyDataset
Return type
End Function
- _
+ _
Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_EINGANGSARTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EINGANGSARTENRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKART_MODULERowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_MODULESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_MODULESRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MANRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
- _
+ _
Public Delegate Sub VWDDINDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_MANRowChangeEvent)
- _
+ _
Public Delegate Sub VWDDINDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_AUTOMRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent)
- _
+ _
Public Delegate Sub TBGI_CONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_CONFIGURATIONRowChangeEvent)
- _
+ _
Public Delegate Sub TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent)
- _
+ _
Public Delegate Sub TBWHDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWHDD_INDEX_MANRowChangeEvent)
- _
- Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent)
-
- _
+ _
Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent)
- _
+ _
Public Delegate Sub VWGI_USER_GROUPS_RELATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_USER_GROUPS_RELATIONRowChangeEvent)
- _
- Public Delegate Sub VWGI_DOCTYPE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_DOCTYPE_GROUPRowChangeEvent)
-
- _
+ _
Public Delegate Sub TBHOTKEY_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PROFILERowChangeEvent)
- _
+ _
Public Delegate Sub TBHOTKEY_PATTERNSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNSRowChangeEvent)
- _
+ _
Public Delegate Sub TBMYHOTKEYSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMYHOTKEYSRowChangeEvent)
- _
+ _
Public Delegate Sub TBHOTKEY_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_USER_PROFILERowChangeEvent)
- _
+ _
Public Delegate Sub TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNS_REWORKRowChangeEvent)
- _
+ _
Public Delegate Sub TBHOTKEY_WINDOW_HOOKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_WINDOW_HOOKRowChangeEvent)
- _
+ _
Public Delegate Sub TBGI_FILES_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_FILES_USERRowChangeEvent)
- _
+ _
Public Delegate Sub TBGI_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_HISTORYRowChangeEvent)
- _
+ _
Public Delegate Sub TBGI_REGEX_DOCTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_REGEX_DOCTYPERowChangeEvent)
- _
+ _
Public Delegate Sub TBTempFiles2IndexRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTempFiles2IndexRowChangeEvent)
- _
+ _
Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent)
- _
+ _
Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent)
'''
@@ -1401,7 +1326,7 @@ Partial Public Class MyDataset
Private columnLANGUAGE As Global.System.Data.DataColumn
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBDD_USER"
@@ -1411,7 +1336,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
@@ -1429,14 +1354,14 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
@@ -1444,7 +1369,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPRENAME
@@ -1452,7 +1377,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
@@ -1460,7 +1385,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERNAME
@@ -1468,7 +1393,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEMAIL
@@ -1476,7 +1401,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
@@ -1484,7 +1409,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
@@ -1492,7 +1417,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
@@ -1500,7 +1425,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
@@ -1508,7 +1433,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSHORTNAME
@@ -1516,7 +1441,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLANGUAGE
@@ -1524,7 +1449,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property Count() As Integer
Get
@@ -1533,33 +1458,33 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow
Get
Return CType(Me.Rows(index),TBDD_USERRow)
End Get
End Property
- _
+ _
Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler
- _
+ _
Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler
- _
+ _
Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler
- _
+ _
Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow)
Me.Rows.Add(row)
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHORTNAME As String, ByVal LANGUAGE As String) As TBDD_USERRow
Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow)
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNAME, LANGUAGE}
@@ -1569,13 +1494,13 @@ Partial Public Class MyDataset
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow)
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable)
cln.InitVars
@@ -1583,13 +1508,13 @@ Partial Public Class MyDataset
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_USERDataTable()
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPRENAME = MyBase.Columns("PRENAME")
@@ -1605,7 +1530,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
@@ -1648,25 +1573,25 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function NewTBDD_USERRow() As TBDD_USERRow
Return CType(Me.NewRow,TBDD_USERRow)
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_USERRow(builder)
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_USERRow)
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then
@@ -1675,7 +1600,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then
@@ -1684,7 +1609,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then
@@ -1693,7 +1618,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then
@@ -1702,13 +1627,13 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow)
Me.Rows.Remove(row)
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
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()
@@ -1817,7 +1742,7 @@ Partial Public Class MyDataset
Private columnDUPLICATE_HANDLING As Global.System.Data.DataColumn
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBDD_DOKUMENTART"
@@ -1827,7 +1752,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
@@ -1845,14 +1770,14 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
@@ -1860,7 +1785,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBEZEICHNUNG
@@ -1868,7 +1793,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEINGANGSART_ID
@@ -1876,7 +1801,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnKURZNAME
@@ -1884,7 +1809,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn
Get
Return Me.columnZIEL_PFAD
@@ -1892,7 +1817,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBESCHREIBUNG
@@ -1900,7 +1825,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAKTIV
@@ -1908,7 +1833,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAMENKONVENTION
@@ -1916,7 +1841,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWER
@@ -1924,7 +1849,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWANN
@@ -1932,7 +1857,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEANDERTWER
@@ -1940,7 +1865,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEAENDERTWANN
@@ -1948,7 +1873,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn
Get
Return Me.columnOBJEKTTYP
@@ -1956,7 +1881,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property WINDREAM_DIRECTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWINDREAM_DIRECT
@@ -1964,7 +1889,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFOLDER_FOR_INDEX
@@ -1972,7 +1897,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE
@@ -1980,7 +1905,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property DUPLICATE_HANDLINGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDUPLICATE_HANDLING
@@ -1988,7 +1913,7 @@ Partial Public Class MyDataset
End Property
_
Public ReadOnly Property Count() As Integer
Get
@@ -1997,33 +1922,33 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow
Get
Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow)
End Get
End Property
- _
+ _
Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler
- _
+ _
Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler
- _
+ _
Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler
- _
+ _
Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow)
Me.Rows.Add(row)
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Function AddTBDD_DOKUMENTARTRow( _
ByVal BEZEICHNUNG As String, _
ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, _
@@ -2052,13 +1977,13 @@ Partial Public Class MyDataset
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow)
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable)
cln.InitVars
@@ -2066,13 +1991,13 @@ Partial Public Class MyDataset
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_DOKUMENTARTDataTable()
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG")
@@ -2094,7 +2019,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
@@ -2168,25 +2093,25 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow
Return CType(Me.NewRow,TBDD_DOKUMENTARTRow)
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_DOKUMENTARTRow(builder)
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_DOKUMENTARTRow)
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then
@@ -2195,7 +2120,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then
@@ -2204,7 +2129,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then
@@ -2213,7 +2138,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then
@@ -2222,13 +2147,13 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow)
Me.Rows.Remove(row)
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
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()
@@ -2317,7 +2242,7 @@ Partial Public Class MyDataset
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBDD_EINGANGSARTEN"
@@ -2327,7 +2252,7 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
@@ -2345,14 +2270,14 @@ Partial Public Class MyDataset
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
@@ -2360,7 +2285,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBEZEICHNUNG
@@ -2368,7 +2293,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBESCHREIBUNG
@@ -2376,7 +2301,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWER
@@ -2384,7 +2309,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWANN
@@ -2392,7 +2317,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEANDERTWER
@@ -2400,7 +2325,7 @@ Partial Public Class MyDataset
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEAENDERTWANN
@@ -2408,7 +2333,7 @@ Partial Public Class MyDataset
End Property