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

clean up

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-26 16:43:42 +02:00
parent 2bf8a18277
commit 817347af6f
4 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Controls.SQLEditor/frmSQLEditor.vb
View File

@ -104,7 +104,7 @@ Public Class frmSQLEditor
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
If cmbConnections.SelectedItem Is Nothing Then If cmbConnections.SelectedItem Is Nothing Then
MsgBox("Bitte wählen sie einen ") ShowErrorMessage("Bitte wählen sie eine Datenbank Verbindung!")
Exit Sub Exit Sub
End If End If

10
GUIs.Common/Base/BaseErrorHandler.vb
View File

@ -24,6 +24,16 @@ Namespace Base
MessageBox.Show(Message, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show(Message, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub End Sub
Public Sub ShowErrorMessage(Text As String)
_Logger.Info(Text)
MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
Public Sub ShowWarningMessage(Text As String)
_Logger.Info(Text)
MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Sub
Public Sub ShowInfoMessage(Text As String) Public Sub ShowInfoMessage(Text As String)
_Logger.Info(Text) _Logger.Info(Text)
MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)

3
GUIs.Common/Base/BaseForm.vb
View File

@ -43,8 +43,7 @@ Namespace Base
End Sub End Sub
Public Sub ShowErrorMessage(ErrorMessage As String) Public Sub ShowErrorMessage(ErrorMessage As String)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2) _ErrorHandler.ShowErrorMessage(ErrorMessage)
_ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage), oCallingClass)
End Sub End Sub
End Class End Class
End Namespace End Namespace

6
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -287,9 +287,9 @@ Public Class frmFlowForm
Dim oDT As DataTable = AppServerOrDB.GetDatatable("DD_ECM", oSql, "TBGI_FOLDERWATCH_USER", $"FOLDER_TYPE = 'DEFAULT' AND USER_ID = {My.Application.User.UserId}") Dim oDT As DataTable = AppServerOrDB.GetDatatable("DD_ECM", oSql, "TBGI_FOLDERWATCH_USER", $"FOLDER_TYPE = 'DEFAULT' AND USER_ID = {My.Application.User.UserId}")
If oDT.Rows.Count = 0 Then If oDT.Rows.Count = 0 Then
Throw New ApplicationException("No Default Path configured for User!") 'Throw New ApplicationException("No Default Path configured for User!")
'Logger.Warn("No Default Path configured for User. Skipping.") Logger.Warn("No Default Path configured for User. Skipping.")
'Exit Sub Exit Sub
End If End If
Dim oFolderWatchPath = oDT.Rows.Item(0).Item("FOLDER_PATH") Dim oFolderWatchPath = oDT.Rows.Item(0).Item("FOLDER_PATH")