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
If cmbConnections.SelectedItem Is Nothing Then
MsgBox("Bitte wählen sie einen ")
ShowErrorMessage("Bitte wählen sie eine Datenbank Verbindung!")
Exit Sub
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)
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)
_Logger.Info(Text)
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
Public Sub ShowErrorMessage(ErrorMessage As String)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
_ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage), oCallingClass)
_ErrorHandler.ShowErrorMessage(ErrorMessage)
End Sub
End Class
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}")
If oDT.Rows.Count = 0 Then
Throw New ApplicationException("No Default Path configured for User!")
'Logger.Warn("No Default Path configured for User. Skipping.")
'Exit Sub
'Throw New ApplicationException("No Default Path configured for User!")
Logger.Warn("No Default Path configured for User. Skipping.")
Exit Sub
End If
Dim oFolderWatchPath = oDT.Rows.Item(0).Item("FOLDER_PATH")