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
oIndexValue = oIndexValue.Replace(" ", "")
Return CInt(oIndexValue)
Case WMObjectVariableValueTypeInteger
oIndexValue = oIndexValue.Replace(" ", "")
Return CInt(oIndexValue)
Case WMObjectVariableValueTypeCurrency
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(oIndexValue))

20
ToolCollection/ClassWD_Rechte.vb
View File

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

4
ToolCollection/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.9.0.0")>
<Assembly: AssemblyFileVersion("2.9.0.0")>
<Assembly: AssemblyVersion("2.9.1.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
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
_MyLogger.Debug = Not (My.Settings.vLogErrorsonly)
_SQLLite = New ClassSQLITE(_MyLogger)
_windreamRechte = New ClassWD_Rechte(_MyLogger, _SQLLite)
_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)
End If
If oSqlCommand.Contains("[%DOCFilename]") Then
oSqlCommand = oSqlCommand.Replace("[%DOCFilename]", dokument.aName)
If oSqlCommand.Contains("[DOCFilename]") Then
oSqlCommand = oSqlCommand.Replace("[DOCFilename]", dokument.aName)
End If
If oSqlCommand.Contains("[%DOCFilenameoE]") Then
If oSqlCommand.Contains("[DOCFilenameoE]") Then
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
If oSqlCommand.Contains("[%DOCPath]") Then
oSqlCommand = oSqlCommand.Replace("[FULLNAME]", Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath))
If oSqlCommand.Contains("[DOCPath]") Then
oSqlCommand = oSqlCommand.Replace("[DOCPath]", Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath))
End If
If oSqlCommand.Contains("[%DATENow]") Then
oSqlCommand = oSqlCommand.Replace("[%DATENow]", Now.ToShortDateString)
End If
If oSqlCommand.Contains("[%DOCFULLPATH]") Then
oSqlCommand = oSqlCommand.Replace("[%DOCFULLPATH]", My.Settings.MRWD_Laufwerk & ":" & dokument.aPath)
If oSqlCommand.Contains("[DOCFULLPATH]") Then
oSqlCommand = oSqlCommand.Replace("[DOCFULLPATH]", My.Settings.MRWD_Laufwerk & ":" & dokument.aPath)
End If
_Logger.Debug($"oSqlCommand after Replace 1([{oSqlCommand}])")
' einen Regulären Ausdruck laden
@ -1021,7 +1021,7 @@ Public Class frmNIHauptseite
' und die Abfrage ein Ergebnis zurück gab
If IndexwertAusWindream Is Nothing And Not oUnexpectedError Then
' IndexwertAusWindream ist Nothing (idxName_ohneSonderzeichen)
_Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist EMPTY oder NOTHING")
_Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' is NOTHING")
_Logger.Warn("SQL-String bisher: " & oSqlCommand)
' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden
oUnexpectedError = True