MS Fehlerhandling FormatString
This commit is contained in:
parent
1e98e4a9ab
commit
440303d299
@ -181,41 +181,6 @@ Public Class ClassAllgemeineFunktionen
|
||||
End If
|
||||
|
||||
End Sub
|
||||
'Public Function Delete_xffres(originFile As String, clsWD As ClassWindream_allgemein)
|
||||
' Try
|
||||
' Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(originFile)
|
||||
' Dim Path As String = System.IO.Path.GetDirectoryName(originFile)
|
||||
' Dim xffres As String = Path & "\" & Stammname & ".xffres"
|
||||
' If file_exists(xffres, clsWD) = True Then
|
||||
' System.IO.File.Delete(xffres)
|
||||
' LOGGER.Info("Datei " & xffres & " erfolgreich gelöscht")
|
||||
' Return True
|
||||
' Else
|
||||
' Return Nothing
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Error(ex)
|
||||
' LOGGER.Info(" Fehler bei Delete_xffres", True)
|
||||
' LOGGER.Info("Fehlermeldung: " & ex.Message)
|
||||
' End Try
|
||||
'End Function
|
||||
'Public Function Delete_File(originFile As String)
|
||||
' Try
|
||||
|
||||
' If file_exists(originFile, False) = True Then
|
||||
' System.IO.File.Delete(originFile)
|
||||
' LOGGER.Info("Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
|
||||
' Return True
|
||||
' Else
|
||||
' MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
|
||||
' Return False
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' LOGGER.Info(" Fehler bei Delete_File", True)
|
||||
' LOGGER.Info("Fehlermeldung: " & ex.Message)
|
||||
' End Try
|
||||
'End Function
|
||||
|
||||
Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer, clsWD As ClassWindream_allgemein)
|
||||
Try
|
||||
|
||||
@ -296,7 +261,7 @@ Public Class ClassAllgemeineFunktionen
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei checkValue_Exists:")
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error checkValue_Exists:")
|
||||
LOGGER.Info(" - Unvorhergesehener Fehler bei checkValue_Exists - Fehler: " & vbNewLine & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
@ -329,7 +294,7 @@ Public Class ClassAllgemeineFunktionen
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
|
||||
MsgBox("Unexpected error Execute_Scalar_SQLServer" & vbNewLine & "Automatic Index (j/n): " & check.ToString & vbNewLine & "ERROR:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error Execute_Scalar_SQL sql:")
|
||||
Insert_LogEntry($"ERROR Execute_Scalar_SQLServer{ex.Message}")
|
||||
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Info(" - SQL: " & vsql_statement)
|
||||
@ -363,7 +328,7 @@ Public Class ClassAllgemeineFunktionen
|
||||
cnn.Close()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
|
||||
MsgBox("Unexpected error Execute_Scalar_Oracle" & vbNewLine & "Automatic Index (y/n): " & check.ToString & vbNewLine & "Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error Execute_Scalar_oracle sql:")
|
||||
Insert_LogEntry($"ERROR Execute_Scalar_Oracle{ex.Message}")
|
||||
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Info(" - SQL: " & vsql_statement)
|
||||
|
||||
@ -48,17 +48,17 @@ Public Class ClassEmail
|
||||
'*Send the message */
|
||||
emailClient.Send(message)
|
||||
If test = True Then
|
||||
MsgBox("Die Test-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
|
||||
MsgBox("TestMail sent successfully!", MsgBoxStyle.Information, "Success:")
|
||||
End If
|
||||
If Log = True Then
|
||||
MsgBox("Die Support-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
|
||||
MsgBox("The Support-Email has been sent successfully!", MsgBoxStyle.Information, "Success:")
|
||||
End If
|
||||
'LOGGER.Info(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
|
||||
Next
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("### Fehler im Mailversand: " & ex.Message)
|
||||
LOGGER.Info("### Error in Mailversand: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@ -45,24 +45,11 @@ Public Class ClassPMWindream
|
||||
Private Function IsNotEmpty(ByVal aValue As Object)
|
||||
If aValue IsNot Nothing Then
|
||||
Return True
|
||||
|
||||
'If TypeOf aValue Is String Then
|
||||
' ' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können
|
||||
' 'If Not aValue = "" Then
|
||||
' ' Return True
|
||||
' 'End If
|
||||
|
||||
' Return False
|
||||
'Else
|
||||
' Return True
|
||||
'End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
Private Function return_type(ByVal _wert As Object)
|
||||
Return _wert.GetType
|
||||
End Function
|
||||
|
||||
Public Function GetValuesfromAuswahlliste(ByVal listname As String)
|
||||
Try
|
||||
If listname = "" Then
|
||||
@ -99,19 +86,7 @@ Public Class ClassPMWindream
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Function Return_Type(Indexname As String)
|
||||
Try
|
||||
' das entsprechende Attribut aus windream auslesen
|
||||
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indexname)
|
||||
' den Variablentyp (String, Integer, ...) auslesen
|
||||
Dim vType = oAttribute.getVariableValue("dwAttrType")
|
||||
Return vType.ToString
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Return_Type:")
|
||||
Return ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Public Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object)
|
||||
Dim vType
|
||||
@ -472,188 +447,8 @@ Public Class ClassPMWindream
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Sub SetfinalIndex(ByVal oDocument As WMObject, ByVal Indexname As String, ByVal _state As Boolean)
|
||||
Try
|
||||
If Indexname IsNot Nothing Then
|
||||
If Not oDocument.aLocked Then
|
||||
oDocument.LockFor(WMObjectEditModeIndexEdit)
|
||||
Dim i As Integer = 0
|
||||
|
||||
' das entsprechende Attribut aus windream auslesen
|
||||
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indexname)
|
||||
' den Variablentyp (String, Integer, ...) auslesen
|
||||
Dim vType = oAttribute.getVariableValue("dwAttrType")
|
||||
'MsgBox("Typ: " & vType.ToString, MsgBoxStyle.Critical, "_state: " & _state.ToString)
|
||||
' wenn in aValues an Position i ein Wert steht
|
||||
'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
|
||||
Dim value = _state
|
||||
Dim convertValue
|
||||
'Den Typ des Index-Feldes auslesen
|
||||
LOGGER.Debug(">> Typ des windream-Indexes: " & vType.ToString)
|
||||
Select Case (vType)
|
||||
Case WMObjectVariableValueTypeBoolean
|
||||
convertValue = CBool(value)
|
||||
Case Else
|
||||
LOGGER.Info(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:")
|
||||
End Select
|
||||
'############################################################################################
|
||||
'####################### Der eigentliche Indexierungsvorgang ################################
|
||||
|
||||
oDocument.SetVariableValue(Indexname, convertValue)
|
||||
LOGGER.Debug(">> Index '" & Indexname & "' wurde gesetzt")
|
||||
oDocument.Save()
|
||||
oDocument.unlock()
|
||||
LOGGER.Info(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")
|
||||
Else
|
||||
LOGGER.Info(">> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("ClassSearchResult.SetfinalIndex - " & ex.Message, True)
|
||||
'If My.Settings.vNIMailsenden = True Then
|
||||
' email.Send_EMail("Fehler bei SetfinalIndex - Datei: " & oDocument.aName.ToString & " - Fehler: " & ex.Message)
|
||||
'End If
|
||||
oDocument.Save()
|
||||
oDocument.unlock()
|
||||
End Try
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
|
||||
|
||||
Public Function Get_No_Documents(Profil As String, WD_Search As String)
|
||||
Try
|
||||
Dim wmsearch_exists As Boolean
|
||||
Try
|
||||
wmsearch_exists = System.IO.File.Exists(WD_Search)
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
wmsearch_exists = clsWM.CheckFileExists(WD_Search)
|
||||
|
||||
End Try
|
||||
If wmsearch_exists = False Then
|
||||
|
||||
LOGGER.Info(">> Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden! Die Datei '" & WD_Search & "' existiert nicht!", False)
|
||||
MsgBox("Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden!" & vbNewLine & "Die Datei '" & WD_Search & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
|
||||
'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
|
||||
'If My.Settings.vNIMailsenden = True Then
|
||||
' email.Send_EMail("Fehler bei Nachindexierung: <br> >> Profil: " & Me.aktivesProfil.Profilname & "<br> >> die windream-Suche : " & Me.aktivesProfil.WindreamSuche & " konnte nicht gefunden werden!" & _
|
||||
' "<br> >> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!")
|
||||
'End If
|
||||
Return 0
|
||||
Else
|
||||
' windream-Suche für Profil starten
|
||||
Dim windreamSucheErgebnisse As WMObjects = Me.GetSearchDocuments(WD_Search)
|
||||
|
||||
If windreamSucheErgebnisse.Count > 0 Then
|
||||
' neue Anzahl von Dateien
|
||||
Return windreamSucheErgebnisse.Count
|
||||
Else
|
||||
' keine Dateien zum Importieren
|
||||
Return 0
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info(ex.Message)
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function GetSearchDocuments(ByVal wdfLocation As String)
|
||||
|
||||
If clsWM.CheckFileExists(wdfLocation) = True Then
|
||||
|
||||
Try
|
||||
Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
|
||||
Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
|
||||
|
||||
Me.oController.CheckSearchProfile(wdfLocation.ToLower)
|
||||
Dim suchTyp = Me.oController.SearchProfileTargetProgID
|
||||
Dim ExSettings As Object
|
||||
Dim oSearch As Object
|
||||
ExSettings = Me.oController.SearchProfileExSettings
|
||||
If ExSettings = 0 Then ExSettings = 7
|
||||
|
||||
Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
|
||||
Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
|
||||
Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
|
||||
|
||||
Select Case suchTyp.ToString.ToUpper
|
||||
Case "WMOSRCH.WMQUICKSEARCH"
|
||||
srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
|
||||
|
||||
Me.oConnect.LoginSession(srchQuick.WMSession)
|
||||
|
||||
srchQuick.ClearSearch()
|
||||
srchQuick.SearchProfilePath = ProfilePath
|
||||
srchQuick.LoadSearchProfile(ProfileName)
|
||||
|
||||
oSearch = srchQuick.GetSearch()
|
||||
|
||||
Case "WMOSRCH.WMINDEXSEARCH"
|
||||
srchIndex.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
|
||||
|
||||
Me.oConnect.LoginSession(srchIndex.WMSession)
|
||||
|
||||
srchIndex.ClearSearch()
|
||||
srchIndex.SearchProfilePath = ProfilePath
|
||||
srchIndex.LoadSearchProfile(ProfileName)
|
||||
|
||||
oSearch = srchIndex.GetSearch()
|
||||
|
||||
Case "WMOSRCH.WMOBJECTTYPESEARCH"
|
||||
srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
|
||||
|
||||
Me.oConnect.LoginSession(srchObjectType.WMSession)
|
||||
|
||||
srchObjectType.ClearSearch()
|
||||
srchObjectType.SearchProfilePath = ProfilePath
|
||||
srchObjectType.LoadSearchProfile(ProfileName)
|
||||
|
||||
oSearch = srchObjectType.GetSearch()
|
||||
|
||||
Case Else
|
||||
LOGGER.Info("KEIN GÜLTIGER WINDREAM-SUCHTYP")
|
||||
Return Nothing
|
||||
End Select
|
||||
Dim WMObjects As Object
|
||||
WMObjects = oSearch.Execute
|
||||
Return oSearch.execute
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
' bei einem Fehler einen Eintrag in der Logdatei machen
|
||||
LOGGER.Info("Fehler in GetSearchDocuments - " & ex.Message, True)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
Return Nothing
|
||||
|
||||
End Function
|
||||
''' Liefert den Wert eines Indexes als String
|
||||
''' _indexname = Name des zu überprüfenden Indexfeldes
|
||||
Public Function GetValueforIndex(ByVal _fullfilepath As String, _indexname As String)
|
||||
Try
|
||||
Const WMEntityDocument = 1
|
||||
Dim IndexwertAusWindream As Object = Nothing
|
||||
Dim _dok As WINDREAMLib.WMObject
|
||||
_dok = Nothing
|
||||
_dok = oSession.GetWMObjectByPath(WMEntityDocument, _fullfilepath) 'WINDREAMLib.WMEntity.WMEntityDocument
|
||||
IndexwertAusWindream = _dok.GetVariableValue(_indexname)
|
||||
Return IndexwertAusWindream.ToString
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
'MsgBox(ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
End Class
|
||||
|
||||
@ -30,14 +30,7 @@ Public Class ClassWindream_allgemein
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Sub New()
|
||||
' wenn ein Fehler bei der Initialisierung auftrat
|
||||
'If Not Me.Init() Then
|
||||
' ' Nachricht ausgeben
|
||||
' MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung")
|
||||
|
||||
' ' das Programm "abschießen"
|
||||
' Process.GetCurrentProcess.Kill()
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
|
||||
@ -121,13 +114,9 @@ Public Class ClassWindream_allgemein
|
||||
Return True
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
If Err.Number = -2147220985 Then
|
||||
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, "Fehler beim Login an windream")
|
||||
End If
|
||||
LOGGER.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Login on windream")
|
||||
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
@ -228,7 +228,7 @@ Public Class frmAdmin2
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Saving GuiPHrase:")
|
||||
'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
|
||||
|
||||
@ -62,7 +62,7 @@ Public Class frmAdministration
|
||||
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
|
||||
MsgBox("Error in loading BasicValues: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error:")
|
||||
End Try
|
||||
If IDB_ACTIVE = True Then
|
||||
IDBData.Init()
|
||||
@ -219,7 +219,7 @@ Public Class frmAdministration
|
||||
Next
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
|
||||
MsgBox("No connection to windream-server possible.", MsgBoxStyle.Critical, "Unexprected error:")
|
||||
End Try
|
||||
Else
|
||||
Dim oSQL = "SELECT GUID, TITLE FROM IDB.dbo.TBIDB_BUSINESS_ENTITY"
|
||||
@ -279,7 +279,7 @@ Public Class frmAdministration
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei öffnen der windream-Suche:")
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error loading windream-search:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@ -348,7 +348,7 @@ Public Class frmAdministration
|
||||
FillProfile_Zuordnung(profileId)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error adding users:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@ -362,7 +362,7 @@ Public Class frmAdministration
|
||||
FillProfile_Zuordnung(profileId)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen eines Users:")
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error deleting users:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@ -378,7 +378,7 @@ Public Class frmAdministration
|
||||
FillProfile_Zuordnung(profileId)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:")
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error adding group(s):")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@ -394,7 +394,7 @@ Public Class frmAdministration
|
||||
FillProfile_Zuordnung(profileId)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen einer Gruppe:")
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error removing group(s):")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@ -852,7 +852,7 @@ Public Class frmAdministration
|
||||
FormDesigner.ShowDialog()
|
||||
|
||||
Else
|
||||
MsgBox("Eindeutiges Profil konnte nicht an den FormDesigner weitergegeben werden:", MsgBoxStyle.Exclamation)
|
||||
MsgBox("No profile could be passed to designer:", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@ -865,13 +865,13 @@ Public Class frmAdministration
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
|
||||
Dim result As MsgBoxResult = MsgBox("Wollen Sie das gesamte Profil kopieren?" & vbNewLine & "Alle Einstellungen werden übernommen, das Profil wird angelegt und inaktiv gesetzt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
|
||||
Dim result As MsgBoxResult = MsgBox("Would You like to copy this profile?" & vbNewLine & "The profile will be added and set to inactive!", MsgBoxStyle.YesNo, "Confirmation:")
|
||||
'wenn Speichern ja
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Try
|
||||
Dim oEXECSQL As String = $"EXEC PRPM_COPY_PROFILE {PROFILGUIDTextBox.Text},'{USER_USERNAME}'"
|
||||
If DatabaseFallback.ExecuteNonQueryECM(oEXECSQL) = True Then
|
||||
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung")
|
||||
MsgBox("The profile [" & NAMETextBox.Text & "] has been added successfully!", MsgBoxStyle.Information, "Success")
|
||||
Refresh_Profildaten()
|
||||
Else
|
||||
MsgBox("Error creating a profileCopy - Please check Your log!", MsgBoxStyle.Exclamation)
|
||||
@ -879,7 +879,7 @@ Public Class frmAdministration
|
||||
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Fehler bei Anlage Profilkopie:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
|
||||
MsgBox("Error creating a profileCopy:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Error:")
|
||||
End Try
|
||||
|
||||
End If
|
||||
@ -888,20 +888,20 @@ Public Class frmAdministration
|
||||
|
||||
|
||||
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
|
||||
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil " & NAMETextBox.Text & " löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
|
||||
Dim result As MsgBoxResult = MsgBox("Do You really want to delete the profile " & NAMETextBox.Text & " ?", MsgBoxStyle.YesNo, "Confirmation:")
|
||||
' wenn Speichern ja
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Try
|
||||
Dim profileID = PROFILGUIDTextBox.Text
|
||||
Dim del As String = $"EXEC PRPM_DELETE_PROFILE {profileID}"
|
||||
If DatabaseFallback.ExecuteNonQueryECM(del) = True Then
|
||||
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
|
||||
MsgBox("The profile [" & NAMETextBox.Text & "] has been deleted successfully!", MsgBoxStyle.Information, "Success")
|
||||
Refresh_Profildaten()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
MsgBox("Fehler bei Löschen des Profils:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
|
||||
MsgBox("Error deleting a profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Error:")
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
@ -148,11 +148,11 @@ Public Class frmConnection
|
||||
Me.GEANDERTWERTextBox.Text = USER_USERNAME
|
||||
Me.TBDD_CONNECTIONBindingSource.EndEdit()
|
||||
Me.TBDD_CONNECTIONTableAdapter.Update(DD_DMSLiteDataSet.TBDD_CONNECTION)
|
||||
MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
|
||||
MsgBox("Changes successfully saved!", MsgBoxStyle.Information)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Fehler beim Speichern: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
MsgBox("Error sving Connection: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@ -163,7 +163,7 @@ Public Class frmConnection
|
||||
load_connections()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Fehler bei Laden der Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
MsgBox("Error loading basic data: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Sub load_connections()
|
||||
@ -173,7 +173,7 @@ Public Class frmConnection
|
||||
TBDD_CONNECTIONDataGridView.AutoResizeColumns()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Fehler bei Connections laden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
MsgBox("Error loading connections: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub Chckwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles Chckwin_aut.CheckedChanged
|
||||
@ -291,7 +291,7 @@ Public Class frmConnection
|
||||
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
|
||||
If SERVERTextBox.Text = String.Empty Then
|
||||
MsgBox("Bitte geben sie einen Server an!")
|
||||
MsgBox("Please add a server!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@ -300,7 +300,7 @@ Public Class frmConnection
|
||||
csb.IntegratedSecurity = True
|
||||
Else
|
||||
If txtUserId.Text = String.Empty Or txtPassword.Text = String.Empty Then
|
||||
MsgBox("Bitte geben sie Benutzer und Passwort an!")
|
||||
MsgBox("Please add user and password!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
@ -125,7 +125,7 @@ Public Class frmFormDesigner
|
||||
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
|
||||
Catch ex As Exception
|
||||
_LOGGER.Error(ex)
|
||||
MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
|
||||
MsgBox("Error loading connection-strings and basedata: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error:")
|
||||
End Try
|
||||
|
||||
LoadControls()
|
||||
@ -151,7 +151,7 @@ Public Class frmFormDesigner
|
||||
If missingIndexControls.Count > 0 Then
|
||||
e.Cancel = True
|
||||
Dim missingControls As String = String.Join(vbCrLf, missingIndexControls.ToArray())
|
||||
MsgBox($"Für die folgenden Controls wurden noch keine Indexdefinitionen hinterlegt: {vbCrLf}{vbCrLf}{missingControls}")
|
||||
MsgBox($"for the following controls attributes-definitions are missing: {vbCrLf}{vbCrLf}{missingControls}")
|
||||
End If
|
||||
End If
|
||||
|
||||
@ -849,7 +849,7 @@ Public Class frmFormDesigner
|
||||
' Control-Id wurde nicht in DataRow gefunden
|
||||
If IsNothing(oRow) Then
|
||||
_LOGGER.Info($"Error while filtering Controls by Guid '{oControlId}' in LoadControlProperties:")
|
||||
MsgBox($"Control mit der Id {oControlId} wurde nicht gefunden!", MsgBoxStyle.Critical, "Fehler beim Laden der Control Eigenschaften")
|
||||
MsgBox($"Control with ID {oControlId} was not found!", MsgBoxStyle.Critical, "Error loading control-properties")
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@ -75,11 +75,11 @@ Public Class frmMassValidator
|
||||
|
||||
If CURRENT_DT_PROFILE.Rows.Count = 0 Then
|
||||
LOGGER.Info(">> Profildaten konnten nicht geladen werden - Übergebenes Profil: : " & CURRENT_ProfilName, True)
|
||||
MsgBox("Achtung: Profildaten konnten nicht übergeben oder geladen werden.", MsgBoxStyle.Critical, "Achtung:")
|
||||
MsgBox("Profiledata not passed.", MsgBoxStyle.Critical, "Attention:")
|
||||
Me.Close()
|
||||
End If
|
||||
If CURRENT_DT_PROFILE.Rows.Count > 1 Then
|
||||
MsgBox("Es wurden mehr als 1 Profil zurückgegeben!!", MsgBoxStyle.Critical, "Achtung:")
|
||||
MsgBox("More than one profile in results!", MsgBoxStyle.Critical, "Attention:")
|
||||
Me.Close()
|
||||
Else
|
||||
If CURRENT_DT_PROFILE.Rows.Count = 1 Then
|
||||
@ -477,7 +477,7 @@ Public Class frmMassValidator
|
||||
Try
|
||||
controltype = "Textbox"
|
||||
If idxname = "" Then
|
||||
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
|
||||
MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
|
||||
Exit For
|
||||
End If
|
||||
If idxname Is Nothing = False Then
|
||||
@ -511,7 +511,7 @@ Public Class frmMassValidator
|
||||
controltype = "ComboBox"
|
||||
Dim cmb As ComboBox = oControl
|
||||
If idxname = "" Then
|
||||
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
|
||||
MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
|
||||
Exit For
|
||||
End If
|
||||
If idxname Is Nothing = False Then
|
||||
@ -540,7 +540,7 @@ Public Class frmMassValidator
|
||||
controltype = "DataGridView"
|
||||
Dim dgv As DataGridView = oControl
|
||||
If idxname = "" Then
|
||||
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
|
||||
MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
|
||||
Exit For
|
||||
End If
|
||||
If idxname Is Nothing = False Then
|
||||
@ -610,7 +610,7 @@ Public Class frmMassValidator
|
||||
Case "System.Windows.Forms.CheckBox"
|
||||
controltype = "CheckBox"
|
||||
If idxname = "" Then
|
||||
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
|
||||
MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
|
||||
Exit For
|
||||
End If
|
||||
If idxname Is Nothing = False Then
|
||||
@ -678,7 +678,7 @@ Public Class frmMassValidator
|
||||
controltype = "DateTimePicker"
|
||||
Dim DTP As DateTimePicker = oControl
|
||||
If idxname = "" Then
|
||||
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
|
||||
MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
|
||||
Exit For
|
||||
End If
|
||||
Case "DigitalData.Controls.LookupGrid.LookupControl3"
|
||||
@ -1330,13 +1330,13 @@ Public Class frmMassValidator
|
||||
If workedFiles = CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count Then
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox(String.Format("{0} Dateien wurden abgeschlossen!", workedFiles), MsgBoxStyle.Information, "Erfolgsmeldung:")
|
||||
ElseIf USER_LANGUAGE = "en-US" Then
|
||||
Else
|
||||
MsgBox(String.Format("{0} files have been worked successfully!", workedFiles), MsgBoxStyle.Information, "Success:")
|
||||
End If
|
||||
Else
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox(String.Format("{0} von {1} Dateien wurden abgeschlossen! Bitte prüfen Sie das Log und informieren Ihren Sysadmin.", workedFiles, CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count), MsgBoxStyle.Information, "Achtung:")
|
||||
ElseIf USER_LANGUAGE = "en-US" Then
|
||||
Else
|
||||
MsgBox(String.Format("{0} of {1} files have been worked successfully - Check the log And inform Your sysadmin!", workedFiles, CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count), MsgBoxStyle.Information, "Attention:")
|
||||
End If
|
||||
|
||||
|
||||
@ -3185,7 +3185,13 @@ Public Class frmValidator
|
||||
|
||||
End If
|
||||
Try
|
||||
Dim oFormatString As String = oControlRow.Item("CTRL_FORMAT_STRING")
|
||||
Dim oFormatString As String = ""
|
||||
Try
|
||||
oFormatString = oControlRow.Item("CTRL_FORMAT_STRING")
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Unexpected error in getting CTRL_FORMAT_STRING [{oControl.Name}]: {ex.Message}")
|
||||
End Try
|
||||
|
||||
If oFormatString <> String.Empty Then
|
||||
Try
|
||||
Dim oSPlit = Split(oFormatString, ";")
|
||||
@ -3218,7 +3224,13 @@ Public Class frmValidator
|
||||
oControl.Text = NotNull(oValueFromSource, oDefaultValue)
|
||||
End If
|
||||
Try
|
||||
Dim oBackColor As String = oControlRow.Item("CTRL_BACKCOLOR_IF")
|
||||
Dim oBackColor As String = ""
|
||||
Try
|
||||
oBackColor = oControlRow.Item("CTRL_BACKCOLOR_IF")
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Unexpected error in getting CTRL_BACKCOLOR_IF [{oControl.Name}]: {ex.Message}")
|
||||
End Try
|
||||
|
||||
If oBackColor <> String.Empty Then
|
||||
Dim oSPlit = Split(oBackColor, ";")
|
||||
If oSPlit.Length = 3 Then
|
||||
@ -3910,11 +3922,12 @@ Public Class frmValidator
|
||||
Else
|
||||
RibbonPageGroupCustom.Visible = False
|
||||
End If
|
||||
If Not IsNothing(WMDocPathWindows) And ActiveWorkflowType = ConstAHWorkflow_BlindFile Then
|
||||
If Not IsNothing(WMDocPathWindows) And ActiveWorkflowType <> ConstAHWorkflow_BlindFile Then
|
||||
If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then
|
||||
If File.Exists(WMDocPathWindows) Then
|
||||
barbtnitmExport.Caption = ButtonExport2Folder_Caption
|
||||
barbtnitmExport.Visibility = BarItemVisibility.Always
|
||||
barbtnitmExport.Enabled = True
|
||||
Try
|
||||
If ButtonExport2Folder_RootFolder <> "" Then
|
||||
If Directory.Exists(ButtonExport2Folder_RootFolder) Then
|
||||
@ -3923,18 +3936,21 @@ Public Class frmValidator
|
||||
Else
|
||||
FolderBrowserDialog1.SelectedPath = ButtonExport2Folder_RootFolder
|
||||
End If
|
||||
|
||||
Else
|
||||
LOGGER.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"### Error Dis/Enabale Export2Path: {ex.Message} !###")
|
||||
End Try
|
||||
|
||||
Else
|
||||
LOGGER.Warn($"### Dis/Enabale Export2Path - File [{WMDocPathWindows}] not existing or accessible!###")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
LOGGER.Warn($"### Dis/Enabale Export2Path - not displaying as ActiveWorkflowType = {ConstAHWorkflow_BlindFile} !###")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user