Bugfix

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.0.2.7")>
+<Assembly: AssemblyVersion("4.0.2.8")>
-<Assembly: AssemblyFileVersion("4.0.2.7")>
+<Assembly: AssemblyFileVersion("4.0.2.8")>

Aviso/frmHauptfenster.vb

@@ -6601,6 +6601,9 @@ Public Class AvisoStatusFunctions
 
 
     Public Function openSnd(sendId, AvisoID) As Form
+        Try
+
+
             If sendId Is Nothing Then Return Nothing
             If AvisoID Is Nothing Then Return Nothing
             If sendId <= 0 Then Return Nothing
@@ -6622,6 +6625,11 @@ Public Class AvisoStatusFunctions
             frmSendungsdetails.Show() 'Dialog() '     frmSendungsdetails.ShowDialog(frmGrayOut)
             ' frmGrayOut.Close()
             Return frmSendungsdetails
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
     End Function
 
 

Aviso/frmSendungsdetailsNEU.vb

@@ -38,7 +38,7 @@ Public Class frmSendungsdetailsNEU
     Dim usrcntl_ATB As usrCntlSND_ATBGestellung
     Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
     Dim listOfTextconserven
-
+    Dim isFailureShown As Boolean = False
     Dim cntVeranlagungsRg = 0
 
     Sub New()
@@ -50,6 +50,9 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
     Sub New(AvisoId, SendungID)
+        Try
+
+
             InitializeComponent()
             Me.AvisoId = AvisoId
             Me.SendungID = SendungID
@@ -57,6 +60,10 @@ Public Class frmSendungsdetailsNEU
             SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
             UpdateStyles()
 
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
     End Sub
 
     Private Sub frmSendungsdetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -92,6 +99,8 @@ Public Class frmSendungsdetailsNEU
         cntlEmpfaenger_Sonst.special(False)
         cntlAuftraggeber_Sonst.special(False)
         cntlFrachtfuehrer_Sonst.special(False)
+        Try
+
 
             For Each c In Panel6.Controls
                 If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then
@@ -109,6 +118,11 @@ Public Class frmSendungsdetailsNEU
                 End If
             Next
             SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
     End Sub
 
     Function SAVE_ME(Optional saveAll = False, Optional isDublicated = False) As Boolean
@@ -150,7 +164,9 @@ Public Class frmSendungsdetailsNEU
     Sub doVeranlagungsValidation()
         cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0")
     End Sub
-    Function VALIDATE_ME(Optional showErr = True) As Boolean
+    Function VALIDATE_ME(Optional showErr As Boolean = True) As Boolean
+        Try
+
             pnlValidation.Visible = False
 
             rtbValidierung.Text = ""
@@ -259,6 +275,12 @@ Public Class frmSendungsdetailsNEU
 
             ' pnlValidation.Visible = rtbValidierung.Text <> ""
             Return True
+
+        Catch ex As Exception
+            Dim err = "interner Anzeigefehler"
+            rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
+            isFailureShown = True
+        End Try
     End Function
 
     Sub NEXT_SENDUNG()
@@ -268,6 +290,7 @@ Public Class frmSendungsdetailsNEU
             initDataBinding()
             '  initButtons()
         End If
+
     End Sub
 
     Sub PREV_SENDUNG()
@@ -3796,6 +3819,7 @@ Public Class frmSendungsdetailsNEU
     End Sub
 
     Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnVorauszahlung.Click
+        SAVE_ME() ' falls Änderungen gemacht in Sendung wurden!
         FormularArt = SDL.FormularManagerArten.Importaviso_VK
         cntxtVorauskasse.Show(Cursor.Position)
     End Sub
@@ -6843,6 +6867,7 @@ Public Class frmSendungsdetailsNEU
 
 
     Private Sub mnuItem_MouseHover(sender As Object, e As EventArgs)
+        Try
 
             'ContextMenuStrip1.Hide()
             Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
@@ -6868,6 +6893,9 @@ Public Class frmSendungsdetailsNEU
                 End If
 
             End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
 
     End Sub
 
@@ -7034,6 +7062,8 @@ Public Class frmSendungsdetailsNEU
 
 
     Private Sub loadContextMenudynMailvorlagen()
+        Try
+
 
 
             Dim Sprachen = New cTextkonserve_LIST(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
@@ -7051,11 +7081,21 @@ Public Class frmSendungsdetailsNEU
                 Next
                 'ContextMenuStrip1.Show(Cursor.Position)
             End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
 
     End Sub
 
     Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick
-        VALIDATE_ME(False)
+        Try
+
+            VALIDATE_ME(False) 'verhindert eine Fehlerendlosschleife!
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
     End Sub
 
     Private Sub Button23_Click_1(sender As Object, e As EventArgs) Handles Button23.Click

Aviso/usrcntlAktDetails.vb

@@ -1860,12 +1860,18 @@ Public Class usrcntlAktDetails
     End Sub
 
     Sub openSnd(sndId)
+        Try
+
+
             Dim f = FUNC.openSnd(sndId, AvisoID)
             If f IsNot Nothing Then
                 AddHandler f.FormClosed, Sub()
                                              initDgvSendungen()
                                          End Sub
             End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
     End Sub
 
     Private Sub gridVermerke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridVermerke.CellDoubleClick
@@ -3413,6 +3419,7 @@ Public Class usrcntlAktDetails
         If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
         VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
         Vermerke_anzeigen(index)
+        initDgvSendungen()
     End Sub
 
     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnAlleSteuerbescheide.Click