MS Emailtemplate

This commit is contained in:
2019-11-21 16:30:21 +01:00
parent 65f0763208
commit 7e541a8013
30 changed files with 3539 additions and 1075 deletions

View File

@@ -955,8 +955,8 @@ Public Class frmAdministration
End Sub
Private Sub GridView2_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles viewFinalIndex.FocusedRowChanged
'Try
Dim view As GridView = sender
Try
Dim view As GridView = sender
Dim focusedRow As DataRow = view.GetFocusedDataRow()
If IsNothing(focusedRow) Then
@@ -1009,11 +1009,11 @@ Public Class frmAdministration
PropertyGrid1.SelectedObject = obj
PropertyGrid1.Refresh()
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical)
' LOGGER.Info($"Error while loading Final Index properties: {ex.Message}")
'End Try
Catch ex As Exception
LOGGER.Error(ex)
MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical)
LOGGER.Info($"Error while loading Final Index properties: {ex.Message}")
End Try
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click