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

MS Debugging und Indexierung

Browse Source
This commit is contained in:
SchreiberM 2022-12-06 13:25:36 +01:00
parent 146a329171
commit 060d422651
6 changed files with 40 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
.vs/ToolCollection/FileContentIndex/read.lock Normal file
View File

4
ToolCollection/ClassNIWindream.vb
View File

@ -845,6 +845,10 @@ Public Class ClassNIWindream
Case 8204 Case 8204
oIndexValue = oIndexValue.Replace(" ", "") oIndexValue = oIndexValue.Replace(" ", "")
Return CInt(oIndexValue)
Case WMObjectVariableValueTypeInteger
oIndexValue = oIndexValue.Replace(" ", "")
Return CInt(oIndexValue) Return CInt(oIndexValue)
Case WMObjectVariableValueTypeCurrency Case WMObjectVariableValueTypeCurrency
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(oIndexValue)) Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(oIndexValue))

32
ToolCollection/ClassWD_Rechte.vb
View File

@ -100,6 +100,8 @@ Public Class ClassWD_Rechte
End Try End Try
End If End If
_Logger.Debug("#RightModule successfully initialized!")
Return True Return True
Catch ex As Exception Catch ex As Exception
If Err.Number = -2147220985 Then If Err.Number = -2147220985 Then
@ -198,6 +200,7 @@ Public Class ClassWD_Rechte
Else Else
SessionAsUser = aSession SessionAsUser = aSession
If aSession.aLoggedin = True Then If aSession.aLoggedin = True Then
_Logger.Debug($"#Impersonate login [{UserName}] successfull!")
Return SessionAsUser Return SessionAsUser
End If End If
@ -538,6 +541,7 @@ Public Class ClassWD_Rechte
Else Else
_msg = "Right for User: '" & UserOrGroup.aName & "'""" _msg = "Right for User: '" & UserOrGroup.aName & "'"""
End If End If
_Logger.Debug($"Working on {_msg} ...")
If Err.Number <> 0 Then If Err.Number <> 0 Then
Dim msg = "Fehler bei Zugriff auf UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description Dim msg = "Fehler bei Zugriff auf UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description
@ -552,21 +556,33 @@ Public Class ClassWD_Rechte
'einem Rechteträger ALLE Rechte zu entziehen 'einem Rechteträger ALLE Rechte zu entziehen
'entfernt ihn gleichzeitig aus der Auflistung der Rechteträger 'entfernt ihn gleichzeitig aus der Auflistung der Rechteträger
Object_Rights2Delete.Delete2(UserOrGroup, WMAccessRightAllRights) _Logger.Debug($"Now deleting the right...")
If Err.Number <> 0 Then Try
Dim msg = "Fehler bei Zugriff Delete2 - Err.Number: " & Err.Number & vbCrLf & Err.Description Object_Rights2Delete.Delete2(UserOrGroup, WMAccessRightAllRights)
If _form = True Then Catch ex As Exception
MsgBox(msg, MsgBoxStyle.Critical) If Err.Number <> 0 Then
Dim msg = "Fehler bei Zugriff Delete2 - Err.Number: " & Err.Number & vbCrLf & Err.Description
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
_Logger.Warn(msg)
End If
Else Else
_Logger.Warn(msg) Dim msg = "Unexpected error Delete2 - Error: " & vbNewLine & ex.Message
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
_Logger.Error(ex)
End If
End If End If
_Erfolgreich = False _Erfolgreich = False
Return _Erfolgreich Return _Erfolgreich
End Try
End If
Next Next
If _form = False Then If _form = False Then
_Logger.Info("* Die Rechte wurden erfolgreich entfernt.") _Logger.Info("* Die Rechte wurden erfolgreich entfernt *")
End If End If

4
ToolCollection/My Project/AssemblyInfo.vb
View File

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

1
ToolCollection/frmNB_AD.vb
View File

@ -32,6 +32,7 @@ Public Class frmNB_AD
Private Sub frmNB_AD_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmNB_AD_Load(sender As Object, e As EventArgs) Handles Me.Load
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log")) _MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger() _Logger = _MyLogger.GetLogger()
_MyLogger.Debug = Not (My.Settings.vLogErrorsonly)
_SQLLite = New ClassSQLITE(_MyLogger) _SQLLite = New ClassSQLITE(_MyLogger)
_windreamRechte = New ClassWD_Rechte(_MyLogger, _SQLLite) _windreamRechte = New ClassWD_Rechte(_MyLogger, _SQLLite)
_windreamRechte.Init() _windreamRechte.Init()

18
ToolCollection/frmNIHauptseite.vb
View File

@ -968,22 +968,22 @@ Public Class frmNIHauptseite
oSqlCommand = oSqlCommand.Replace("[FULLNAME]", My.Settings.MRWD_Laufwerk & ":" & dokument.aPath) oSqlCommand = oSqlCommand.Replace("[FULLNAME]", My.Settings.MRWD_Laufwerk & ":" & dokument.aPath)
End If End If
If oSqlCommand.Contains("[%DOCFilename]") Then If oSqlCommand.Contains("[DOCFilename]") Then
oSqlCommand = oSqlCommand.Replace("[%DOCFilename]", dokument.aName) oSqlCommand = oSqlCommand.Replace("[DOCFilename]", dokument.aName)
End If End If
If oSqlCommand.Contains("[%DOCFilenameoE]") Then If oSqlCommand.Contains("[DOCFilenameoE]") Then
Dim Filename As String = aktivesDokument.aName.ToString.Substring(0, aktivesDokument.aName.LastIndexOf(".")) Dim Filename As String = aktivesDokument.aName.ToString.Substring(0, aktivesDokument.aName.LastIndexOf("."))
oSqlCommand = oSqlCommand.Replace("[%DOCFilenameoE]", Path.GetFileNameWithoutExtension(Filename)) oSqlCommand = oSqlCommand.Replace("[DOCFilenameoE]", Path.GetFileNameWithoutExtension(Filename))
End If End If
If oSqlCommand.Contains("[%DOCPath]") Then If oSqlCommand.Contains("[DOCPath]") Then
oSqlCommand = oSqlCommand.Replace("[FULLNAME]", Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath)) oSqlCommand = oSqlCommand.Replace("[DOCPath]", Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath))
End If End If
If oSqlCommand.Contains("[%DATENow]") Then If oSqlCommand.Contains("[%DATENow]") Then
oSqlCommand = oSqlCommand.Replace("[%DATENow]", Now.ToShortDateString) oSqlCommand = oSqlCommand.Replace("[%DATENow]", Now.ToShortDateString)
End If End If
If oSqlCommand.Contains("[%DOCFULLPATH]") Then If oSqlCommand.Contains("[DOCFULLPATH]") Then
oSqlCommand = oSqlCommand.Replace("[%DOCFULLPATH]", My.Settings.MRWD_Laufwerk & ":" & dokument.aPath) oSqlCommand = oSqlCommand.Replace("[DOCFULLPATH]", My.Settings.MRWD_Laufwerk & ":" & dokument.aPath)
End If End If
_Logger.Debug($"oSqlCommand after Replace 1([{oSqlCommand}])") _Logger.Debug($"oSqlCommand after Replace 1([{oSqlCommand}])")
' einen Regulären Ausdruck laden ' einen Regulären Ausdruck laden
@ -1021,7 +1021,7 @@ Public Class frmNIHauptseite
' und die Abfrage ein Ergebnis zurück gab ' und die Abfrage ein Ergebnis zurück gab
If IndexwertAusWindream Is Nothing And Not oUnexpectedError Then If IndexwertAusWindream Is Nothing And Not oUnexpectedError Then
' IndexwertAusWindream ist Nothing (idxName_ohneSonderzeichen) ' IndexwertAusWindream ist Nothing (idxName_ohneSonderzeichen)
_Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist EMPTY oder NOTHING") _Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' is NOTHING")
_Logger.Warn("SQL-String bisher: " & oSqlCommand) _Logger.Warn("SQL-String bisher: " & oSqlCommand)
' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden ' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden
oUnexpectedError = True oUnexpectedError = True